Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 1073:b2311dfb3158

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initializers and setval
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Dec 2009 14:20:41 -0500
parents 26197c957ad6
children 0657e5adc938
comparison
equal deleted inserted replaced
1072:9001966ae1c8 1073:b2311dfb3158
134 (defconst urweb-keywords-regexp 134 (defconst urweb-keywords-regexp
135 (urweb-syms-re "and" "case" "class" "con" "constraint" "constraints" 135 (urweb-syms-re "and" "case" "class" "con" "constraint" "constraints"
136 "datatype" "else" "end" "extern" "fn" "map" 136 "datatype" "else" "end" "extern" "fn" "map"
137 "fun" "functor" "if" "include" 137 "fun" "functor" "if" "include"
138 "of" "open" "let" "in" 138 "of" "open" "let" "in"
139 "rec" "sequence" "sig" "signature" "cookie" "style" 139 "rec" "sequence" "sig" "signature" "cookie" "style" "initializer"
140 "struct" "structure" "table" "view" "then" "type" "val" "where" 140 "struct" "structure" "table" "view" "then" "type" "val" "where"
141 "with" 141 "with"
142 142
143 "Name" "Type" "Unit") 143 "Name" "Type" "Unit")
144 "A regexp that matches any non-SQL keywords of Ur/Web.") 144 "A regexp that matches any non-SQL keywords of Ur/Web.")
224 (1 font-lock-keyword-face) 224 (1 font-lock-keyword-face)
225 (2 (amAttribute font-lock-function-name-face))) 225 (2 (amAttribute font-lock-function-name-face)))
226 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)" 226 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)"
227 (1 font-lock-keyword-face) 227 (1 font-lock-keyword-face)
228 (3 (amAttribute font-lock-type-def-face))) 228 (3 (amAttribute font-lock-type-def-face)))
229 ("\\<\\(val\\|table\\|sequence\\|cookie\\|style\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]" 229 ("\\<\\(val\\|table\\|sequence\\|cookie\\|style\\|initializer\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]"
230 (1 font-lock-keyword-face) 230 (1 font-lock-keyword-face)
231 (3 (amAttribute font-lock-variable-name-face))) 231 (3 (amAttribute font-lock-variable-name-face)))
232 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)" 232 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)"
233 (1 font-lock-keyword-face) 233 (1 font-lock-keyword-face)
234 (2 (amAttribute font-lock-module-def-face))) 234 (2 (amAttribute font-lock-module-def-face)))