Mercurial > urweb
comparison src/elisp/urweb-defs.el @ 366:3004f8843e36
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).") |