From 8d110361aec2e04253f964b304d3c42e35bdb918 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 21 Oct 2008 11:13:03 -0400 Subject: Fix XML detection in presence of comparison operators --- src/elisp/urweb-mode.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/elisp/urweb-mode.el') 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 -- cgit v1.2.3