diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-21 11:13:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-21 11:13:03 -0400 |
| commit | 8d110361aec2e04253f964b304d3c42e35bdb918 (patch) | |
| tree | ddc4a80ad81621705a9d7edd513942f14e7af34f /src/elisp | |
| parent | 52c51b876af9e05d8eec78c356419c0c4a811ff5 (diff) | |
Fix XML detection in presence of comparison operators
Diffstat (limited to 'src/elisp')
| -rw-r--r-- | src/elisp/urweb-mode.el | 6 |
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 |