Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 353:9390c55b9f1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More indenting
author Adam Chlipala <adamc@hcoop.net>
date Sun, 12 Oct 2008 10:48:01 -0400
parents 2205d5cb416a
children 368d9411ae67
comparison
equal deleted inserted replaced
352:2205d5cb416a 353:9390c55b9f1f
162 162
163 (defconst urweb-font-lock-keywords 163 (defconst urweb-font-lock-keywords
164 `(;;(urweb-font-comments-and-strings) 164 `(;;(urweb-font-comments-and-strings)
165 (,(concat "\\<\\(fun\\|and\\)\\s-+\\(\\sw+\\)\\s-+[^ \t\n=]") 165 (,(concat "\\<\\(fun\\|and\\)\\s-+\\(\\sw+\\)\\s-+[^ \t\n=]")
166 (1 font-lock-keyword-face) 166 (1 font-lock-keyword-face)
167 (5 font-lock-function-name-face)) 167 (2 font-lock-function-name-face))
168 (,(concat "\\<\\(\\(data\\)?type\\|con\\)\\s-+\\(\\sw+\\)") 168 (,(concat "\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)")
169 (1 font-lock-keyword-face) 169 (1 font-lock-keyword-face)
170 (3 font-lock-type-def-face)) 170 (3 font-lock-type-def-face))
171 ("\\<\\(val\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]" 171 ("\\<\\(val\\|table\\|sequence\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]"
172 (1 font-lock-keyword-face) 172 (1 font-lock-keyword-face)
173 (3 font-lock-variable-name-face)) 173 (3 font-lock-variable-name-face))
174 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)" 174 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)"
175 (1 font-lock-keyword-face) 175 (1 font-lock-keyword-face)
176 (2 font-lock-module-def-face)) 176 (2 font-lock-module-def-face))