Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 1071:26197c957ad6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Better record summary error messages; more tweaking SQL usability
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Dec 2009 11:28:47 -0500
parents 10114d7b7477
children b2311dfb3158
comparison
equal deleted inserted replaced
1070:e933297c4e24 1071:26197c957ad6
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" "CHECK" 151 "PRIMARY" "KEY" "CONSTRAINT" "UNIQUE" "CHECK"
152 "FOREIGN" "REFERENCES" "ON" "NO" "ACTION" "CASCADE" "RESTRICT" "NULL" 152 "FOREIGN" "REFERENCES" "ON" "NO" "ACTION" "CASCADE" "RESTRICT" "NULL"
153 "JOIN" "INNER" "OUTER" "LEFT" "RIGHT" "FULL" "CROSS") 153 "JOIN" "INNER" "OUTER" "LEFT" "RIGHT" "FULL" "CROSS" "SELECT1")
154 "A regexp that matches SQL keywords.") 154 "A regexp that matches SQL keywords.")
155 155
156 (defconst urweb-lident-regexp "\\<[a-z_][A-Za-z0-9_']*\\>" 156 (defconst urweb-lident-regexp "\\<[a-z_][A-Za-z0-9_']*\\>"
157 "A regexp that matches lowercase Ur/Web identifiers.") 157 "A regexp that matches lowercase Ur/Web identifiers.")
158 158
528 (urweb-tag-matcher) 528 (urweb-tag-matcher)
529 (beginning-of-line) 529 (beginning-of-line)
530 (current-indentation))) 530 (current-indentation)))
531 531
532 (defconst urweb-sql-main-starters 532 (defconst urweb-sql-main-starters
533 '("SQL" "SELECT" "INSERT" "UPDATE" "DELETE")) 533 '("SQL" "SELECT" "INSERT" "UPDATE" "DELETE" "FROM" "SELECT1" "WHERE"))
534 534
535 (defconst urweb-sql-starters 535 (defconst urweb-sql-starters
536 (append urweb-sql-main-starters 536 (append urweb-sql-main-starters
537 '("^\\s-+FROM" "WHERE" "GROUP" "ORDER" "HAVING" "LIMIT" "OFFSET" 537 '("^\\s-+FROM" "WHERE" "GROUP" "ORDER" "HAVING" "LIMIT" "OFFSET"
538 "VALUES" "SET"))) 538 "VALUES" "SET")))