Mercurial > urweb
diff src/elisp/urweb-mode.el @ 396:040edfade639
Fix XML indenting to ignore comparison operators
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 21 Oct 2008 11:39:13 -0400 |
parents | bc5a56ed0cd6 |
children | 86c063fedc4d |
line wrap: on
line diff
--- a/src/elisp/urweb-mode.el Tue Oct 21 11:22:10 2008 -0400 +++ b/src/elisp/urweb-mode.el Tue Oct 21 11:39:13 2008 -0400 @@ -503,14 +503,18 @@ (urweb-seek-back) (beginning-of-line) (while (and (not done) (search-forward "<" start-pos t)) - (if (looking-at "/") - (if (search-forward ">" start-pos t) + (cond + ((or (looking-at " ") (looking-at "=")) + nil) + ((looking-at "/") + (if (re-search-forward "[^\\sw]>" start-pos t) (when (> depth 0) (decf depth)) - (setq done t)) - (if (search-forward ">" start-pos t) + (setq done t))) + (t + (if (re-search-forward "[^\\sw]>" start-pos t) (if (not (save-excursion (backward-char 2) (looking-at "/"))) (incf depth)) - (setq done t)))) + (setq done t))))) (and (not done) (> depth 0))))) (defun urweb-tag-matching-indent ()