diff options
-rw-r--r-- | src/elisp/urweb-defs.el | 1 | ||||
-rw-r--r-- | src/elisp/urweb-mode.el | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/elisp/urweb-defs.el b/src/elisp/urweb-defs.el index c9b16369..a223d9b7 100644 --- a/src/elisp/urweb-defs.el +++ b/src/elisp/urweb-defs.el @@ -172,6 +172,7 @@ for all symbols and in all lines starting with the given symbol." ("then" "\\<if\\>") ("else" "\\<if\\>" (urweb-bolp)) ("of" "\\<case\\>") + ("</xml>" "<xml>") ("d=" nil)) "Symbols that should behave somewhat like close parens.") diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index 86c39d96..c8186182 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -573,6 +573,8 @@ Point should be just before the symbol ORIG-SYM and is not preserved." (let ((sym (unless (save-excursion (urweb-backward-arg)) (urweb-backward-spaces) (urweb-backward-sym)))) + (if (and (= sym ">") (save-excursion (backward-char 5) (looking-at "</xml"))) + (setq sym "</xml>")) (if (member sym '(";" "d=")) (setq sym nil)) (if sym (urweb-get-sym-indent sym) ;; FIXME: this can take a *long* time !! |