From 98c2a658375be784ec9afaa80146e5dff3514e5c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 16 Oct 2008 13:17:09 -0400
Subject: Proper indenting of normal ML-y code after </xml>

---
 src/elisp/urweb-mode.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/elisp/urweb-mode.el')

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 !!
-- 
cgit v1.2.3