summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-10-16 13:17:09 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-10-16 13:17:09 -0400
commit98c2a658375be784ec9afaa80146e5dff3514e5c (patch)
tree66070f2bc6d1423b8920b1150ccddec57e15b157
parent9606800a1155d95849a2bdaa18aff4daddcdf797 (diff)
Proper indenting of normal ML-y code after </xml>
-rw-r--r--src/elisp/urweb-defs.el1
-rw-r--r--src/elisp/urweb-mode.el2
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 !!