summaryrefslogtreecommitdiff
path: root/src/elisp
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-10-21 11:13:03 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-10-21 11:13:03 -0400
commit8d110361aec2e04253f964b304d3c42e35bdb918 (patch)
treeddc4a80ad81621705a9d7edd513942f14e7af34f /src/elisp
parent52c51b876af9e05d8eec78c356419c0c4a811ff5 (diff)
Fix XML detection in presence of comparison operators
Diffstat (limited to 'src/elisp')
-rw-r--r--src/elisp/urweb-mode.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el
index 665ed9fc..f8dbc0e3 100644
--- a/src/elisp/urweb-mode.el
+++ b/src/elisp/urweb-mode.el
@@ -179,13 +179,19 @@ See doc for the variable `urweb-mode-info'."
(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