Mercurial > urweb

comparison src/elisp/urweb-defs.el @ 366:3004f8843e36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper indenting of normal ML-y code after </xml>
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Oct 2008 13:17:09 -0400
parents d5148178a7be
children cca935276869
comparison
equal deleted inserted replaced
365:dda8f3c6ae7c 366:3004f8843e36
170 (defconst urweb-close-paren 170 (defconst urweb-close-paren
171 `(("end" ,urweb-begin-syms-re) 171 `(("end" ,urweb-begin-syms-re)
172 ("then" "\\<if\\>") 172 ("then" "\\<if\\>")
173 ("else" "\\<if\\>" (urweb-bolp)) 173 ("else" "\\<if\\>" (urweb-bolp))
174 ("of" "\\<case\\>") 174 ("of" "\\<case\\>")
175 ("</xml>" "<xml>")
175 ("d=" nil)) 176 ("d=" nil))
176 "Symbols that should behave somewhat like close parens.") 177 "Symbols that should behave somewhat like close parens.")
177 178
178 (defconst urweb-agglomerate-re "\\<else[ \t]+if\\>" 179 (defconst urweb-agglomerate-re "\\<else[ \t]+if\\>"
179 "Regexp of compound symbols (pairs of symbols to be considered as one).") 180 "Regexp of compound symbols (pairs of symbols to be considered as one).")