summaryrefslogtreecommitdiff
path: root/src/elisp
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-07-22 15:39:38 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-07-22 15:39:38 -0400
commitc723667d402b730edc4059cb132587977893b42a (patch)
tree6656ba1a78bd4eb71c381dc95d2e7b1a8ce6b130 /src/elisp
parent02d95a3ae4ed3519b082fe49616e493572e68e83 (diff)
Backpedal on tutorial-motivated urweb-mode changes; add Basis.diffInSeconds and Basis.toSeconds
Diffstat (limited to 'src/elisp')
-rw-r--r--src/elisp/urweb-mode.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el
index 9138dafb..c9fe5f19 100644
--- a/src/elisp/urweb-mode.el
+++ b/src/elisp/urweb-mode.el
@@ -170,10 +170,8 @@ 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 "*)")
- (search-backward "(*"))
((looking-at "{")
(if (> depth 0)
(decf depth)
@@ -183,11 +181,13 @@ See doc for the variable `urweb-mode-info'."
((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)