Mercurial > urweb

diff src/elisp/urweb-mode.el @ 1502:2f9b7382dd1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First tutorial chapter ready
author Adam Chlipala <adam@chlipala.net>
date Sat, 16 Jul 2011 14:12:14 -0400
parents 0b639858200b
children 3c0803c1acd7
line wrap: on
line diff
--- a/src/elisp/urweb-mode.el	Sat Jul 16 11:48:11 2011 -0400
+++ b/src/elisp/urweb-mode.el	Sat Jul 16 14:12:14 2011 -0400
@@ -170,8 +170,10 @@
           (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 "*)")
+          (search-backward "(*"))
          ((looking-at "{")
           (if (> depth 0)
               (decf depth)
@@ -183,7 +185,7 @@
                                                 (looking-at "<>")))
           (setq finished t))
          ((or (looking-at "< ") (looking-at "<="))
-          nil)
+          (setq finished t))
          ((looking-at "<")
           (setq finished t))
          ((looking-at ">")