Mercurial > urweb
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