# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1224601983 14400
# Node ID bc5a56ed0cd690472ccfa46b362595ee22f5dbed
# Parent  a813476230e3e5506d71a3ca51da83efaeb7b3e3
Fix XML detection in presence of comparison operators

diff -r a813476230e3 -r bc5a56ed0cd6 src/elisp/urweb-mode.el
--- 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