From 26da03398a3ecee9985726d7f5f71a082ee57ec1 Mon Sep 17 00:00:00 2001 From: Vladimir Shabanov Date: Mon, 26 Sep 2011 03:29:09 +0400 Subject: Tweaked Emacs mode to handle many "->" faster. --- src/elisp/urweb-mode.el | 6 +++++- 1 file changed, 5 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 ea14b4e1..b9ffaf10 100644 --- a/src/elisp/urweb-mode.el +++ b/src/elisp/urweb-mode.el @@ -170,7 +170,7 @@ See doc for the variable `urweb-mode-info'." (finished nil) (answer nil) ) - (while (and (not finished) (re-search-backward "[<{}]" nil t)) + (while (and (not finished) (re-search-backward "[-<{}]" nil t)) (cond ((looking-at "{") (if (> depth 0) @@ -187,6 +187,10 @@ See doc for the variable `urweb-mode-info'." ((looking-at "") (incf depth)) + ((looking-at "-") + (if (looking-at "->") + (setq finished (= depth 0)))) + ((and (= depth 0) (not (looking-at " (eq font-lock-tag-face -- cgit v1.2.3