From dfafca5fcf01c61ed0183e4b80cdef90dfbfa822 Mon Sep 17 00:00:00 2001 From: Vladimir Shabanov Date: Mon, 26 Sep 2011 02:54:52 +0400 Subject: Minor tweak to speed up Emacs mode. --- src/elisp/urweb-mode.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'src/elisp/urweb-mode.el') diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el index c4cb3476..ea14b4e1 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -185,7 +185,22 @@ See doc for the variable `urweb-mode-info'." (setq answer t) (setq finished t)))) ((looking-at "") - (incf depth)))) + (incf depth)) + + ((and (= depth 0) + (not (looking-at " + (eq font-lock-tag-face + (get-text-property (point) 'face))) + ;; previous code was highlighted as tag, seems we are in xml + (progn + (setq answer t) + (setq finished t))) + + ((= depth 0) + ;; previous thing was a tag like, but not tag + ;; seems we are in usual code or comment + (setq finished t)) + )) answer))) (defun amAttribute (face) -- cgit v1.2.3