Mercurial > urweb

diff src/elisp/urweb-mode.el @ 1514:3c0803c1acd7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Backpedal on tutorial-motivated urweb-mode changes; add Basis.diffInSeconds and Basis.toSeconds
author Adam Chlipala <adam@chlipala.net>
date Fri, 22 Jul 2011 15:39:38 -0400
parents 2f9b7382dd1d
children a479947efbcd
line wrap: on
line diff
--- a/src/elisp/urweb-mode.el	Wed Jul 20 08:14:49 2011 -0400
+++ b/src/elisp/urweb-mode.el	Fri Jul 22 15:39:38 2011 -0400
@@ -170,10 +170,8 @@
           (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,11 +181,13 @@
          ((save-excursion (backward-char 1) (or (looking-at "=>")
                                                 (looking-at "->")
                                                 (looking-at "<>")))
-          (setq finished t))
+          nil)
          ((or (looking-at "< ") (looking-at "<="))
-          (setq finished t))
+          nil)
          ((looking-at "<")
           (setq finished t))
+         ((save-excursion (backward-char 1) (looking-at " >"))
+          nil)
          ((looking-at ">")
           (cond
            ((> depth 0)