changeset 393:bc5a56ed0cd6

Fix XML detection in presence of comparison operators
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 11:13:03 -0400 (2008-10-21)
parents a813476230e3
children 9f6fe6f32961
files src/elisp/urweb-mode.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
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