Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 708:1a317a707d71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add primary keys to demo
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 16:22:11 -0400
parents 8998114760c1
children 0406e9cccb72
comparison
equal deleted inserted replaced
707:d8217b4cb617 708:1a317a707d71
145 145
146 (defconst urweb-sql-keywords-regexp 146 (defconst urweb-sql-keywords-regexp
147 (urweb-syms-re "SELECT" "FROM" "AS" "WHERE" "SQL" "GROUP" "ORDER" "BY" 147 (urweb-syms-re "SELECT" "FROM" "AS" "WHERE" "SQL" "GROUP" "ORDER" "BY"
148 "HAVING" "LIMIT" "OFFSET" "ALL" "UNION" "INTERSECT" "EXCEPT" 148 "HAVING" "LIMIT" "OFFSET" "ALL" "UNION" "INTERSECT" "EXCEPT"
149 "TRUE" "FALSE" "AND" "OR" "NOT" "COUNT" "AVG" "SUM" "MIN" "MAX" 149 "TRUE" "FALSE" "AND" "OR" "NOT" "COUNT" "AVG" "SUM" "MIN" "MAX"
150 "ASC" "DESC" "INSERT" "INTO" "VALUES" "UPDATE" "SET" "DELETE") 150 "ASC" "DESC" "INSERT" "INTO" "VALUES" "UPDATE" "SET" "DELETE"
151 "PRIMARY" "KEY" "CONSTRAINT" "UNIQUE")
151 "A regexp that matches SQL keywords.") 152 "A regexp that matches SQL keywords.")
152 153
153 (defconst urweb-lident-regexp "\\<[a-z_][A-Za-z0-9_']*\\>" 154 (defconst urweb-lident-regexp "\\<[a-z_][A-Za-z0-9_']*\\>"
154 "A regexp that matches lowercase Ur/Web identifiers.") 155 "A regexp that matches lowercase Ur/Web identifiers.")
155 156