Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 1497:0b639858200b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tutorial tweaks
author Adam Chlipala <adam@chlipala.net>
date Fri, 15 Jul 2011 18:45:03 -0400
parents c316ca3c9ec6
children 2f9b7382dd1d
comparison
equal deleted inserted replaced
1496:3010472edf44 1497:0b639858200b
179 ((looking-at "}") 179 ((looking-at "}")
180 (incf depth)) 180 (incf depth))
181 ((save-excursion (backward-char 1) (or (looking-at "=>") 181 ((save-excursion (backward-char 1) (or (looking-at "=>")
182 (looking-at "->") 182 (looking-at "->")
183 (looking-at "<>"))) 183 (looking-at "<>")))
184 nil) 184 (setq finished t))
185 ((or (looking-at "< ") (looking-at "<=")) 185 ((or (looking-at "< ") (looking-at "<="))
186 nil) 186 nil)
187 ((looking-at "<") 187 ((looking-at "<")
188 (setq finished t)) 188 (setq finished t))
189 ((save-excursion (backward-char 1) (looking-at " >"))
190 nil)
191 ((looking-at ">") 189 ((looking-at ">")
192 (cond 190 (cond
193 ((> depth 0) 191 ((> depth 0)
194 (if (not (re-search-backward "<" nil t)) 192 (if (not (re-search-backward "<" nil t))
195 (setq finished t))) 193 (setq finished t)))