Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 459:f542bc3133dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cookies through elaborate
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 10:29:55 -0500
parents 86c063fedc4d
children 8998114760c1
comparison
equal deleted inserted replaced
458:8f65b0fa3b29 459:f542bc3133dc
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" "fold" 136 "datatype" "else" "end" "extern" "fn" "fold"
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" 139 "rec" "sequence" "sig" "signature" "cookie"
140 "struct" "structure" "table" "then" "type" "val" "where" 140 "struct" "structure" "table" "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.")
221 (1 font-lock-keyword-face) 221 (1 font-lock-keyword-face)
222 (2 (amAttribute font-lock-function-name-face))) 222 (2 (amAttribute font-lock-function-name-face)))
223 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)" 223 ("\\<\\(\\(data\\)?type\\|con\\|class\\)\\s-+\\(\\sw+\\)"
224 (1 font-lock-keyword-face) 224 (1 font-lock-keyword-face)
225 (3 (amAttribute font-lock-type-def-face))) 225 (3 (amAttribute font-lock-type-def-face)))
226 ("\\<\\(val\\|table\\|sequence\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]" 226 ("\\<\\(val\\|table\\|sequence\\|cookie\\)\\s-+\\(\\sw+\\>\\s-*\\)?\\(\\sw+\\)\\s-*[=:]"
227 (1 font-lock-keyword-face) 227 (1 font-lock-keyword-face)
228 (3 (amAttribute font-lock-variable-name-face))) 228 (3 (amAttribute font-lock-variable-name-face)))
229 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)" 229 ("\\<\\(structure\\|functor\\)\\s-+\\(\\sw+\\)"
230 (1 font-lock-keyword-face) 230 (1 font-lock-keyword-face)
231 (2 (amAttribute font-lock-module-def-face))) 231 (2 (amAttribute font-lock-module-def-face)))