Mercurial > urweb
diff src/elisp/urweb-move.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 | 782ef3ad8c28 |
children | 4083d0dff94c |
line wrap: on
line diff
--- a/src/elisp/urweb-move.el Tue Oct 21 11:22:10 2008 -0400 +++ b/src/elisp/urweb-move.el Tue Oct 21 11:39:13 2008 -0400 @@ -240,16 +240,20 @@ (let ((depth 0) (done nil)) (while (and (not done) (search-backward ">" nil t)) - (if (save-excursion (backward-char 1) (looking-at "/")) - (when (not (search-backward "<" nil t)) - (setq done t)) - (if (search-backward "<" nil t) + (cond + ((save-excursion (backward-char 1) (looking-at " ")) + nil) + ((save-excursion (backward-char 1) (looking-at "/")) + (when (not (re-search-backward "<[^ =]" nil t)) + (setq done t))) + (t + (if (re-search-backward "<[^ =]" nil t) (if (looking-at "</") (incf depth) (if (= depth 0) (setq done t) (decf depth))) - (setq done t)))))) + (setq done t))))))) (defun urweb-backward-sexp (prec) "Move one sexp backward if possible, or one char else.