Mercurial > urweb

diff src/elisp/urweb-mode.el @ 393:bc5a56ed0cd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix XML detection in presence of comparison operators
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 11:13:03 -0400
parents ef43ed6cd1de
children 040edfade639
line wrap: on
line diff
--- a/src/elisp/urweb-mode.el	Tue Oct 21 11:04:24 2008 -0400
+++ b/src/elisp/urweb-mode.el	Tue Oct 21 11:13:03 2008 -0400
@@ -179,13 +179,19 @@
                                                 (looking-at "->")
                                                 (looking-at "<>")))
           nil)
+         ((or (looking-at "< ") (looking-at "<="))
+          nil)
          ((looking-at "<")
           (setq finished t))
+         ((save-excursion (backward-char 1) (looking-at " >"))
+          nil)
          ((looking-at ">")
           (cond
            ((> depth 0)
             (if (not (re-search-backward "<" nil t))
                 (setq finished t)))
+           ((save-excursion (backward-char 1) (looking-at " "))
+            (setq finished t))
            (t
             (progn (backward-char 4)
                    (setq answer (not (or