# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1224177429 14400
# Node ID 3004f8843e36d067e3e73e1a9b6d66fc68813da7
# Parent  dda8f3c6ae7c63c4ed47908201e94fad6c144b32
Proper indenting of normal ML-y code after </xml>

diff -r dda8f3c6ae7c -r 3004f8843e36 src/elisp/urweb-defs.el
--- a/src/elisp/urweb-defs.el	Thu Oct 16 13:01:24 2008 -0400
+++ b/src/elisp/urweb-defs.el	Thu Oct 16 13:17:09 2008 -0400
@@ -172,6 +172,7 @@
     ("then" "\\<if\\>")
     ("else" "\\<if\\>" (urweb-bolp))
     ("of" "\\<case\\>")
+    ("</xml>" "<xml>")
     ("d=" nil))
   "Symbols that should behave somewhat like close parens.")
 
diff -r dda8f3c6ae7c -r 3004f8843e36 src/elisp/urweb-mode.el
--- a/src/elisp/urweb-mode.el	Thu Oct 16 13:01:24 2008 -0400
+++ b/src/elisp/urweb-mode.el	Thu Oct 16 13:17:09 2008 -0400
@@ -573,6 +573,8 @@
   (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 !!