Mercurial > urweb

diff src/elisp/urweb-defs.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 8998114760c1
children 0657e5adc938
line wrap: on
line diff
--- a/src/elisp/urweb-defs.el	Sun Dec 13 13:00:55 2009 -0500
+++ b/src/elisp/urweb-defs.el	Sun Dec 13 14:20:41 2009 -0500
@@ -108,7 +108,7 @@
                  "datatype" "type" "open" "include"
                  urweb-module-head-syms
                  "con" "map" "where" "extern" "constraint" "constraints"
-                 "table" "sequence" "class" "cookie")
+                 "table" "sequence" "class" "cookie" "initializer")
   "Symbols starting an sexp.")
 
 ;; (defconst urweb-not-arg-start-re
@@ -134,7 +134,8 @@
      (,urweb-=-starter-syms nil)
      (("case" "datatype" "if" "then" "else"
        "let" "open" "sig" "struct" "type" "val"
-       "con" "constraint" "table" "sequence" "class" "cookie")))))
+       "con" "constraint" "table" "sequence" "class" "cookie"
+       "initializer")))))
 
 (defconst urweb-starters-indent-after
   (urweb-syms-re "let" "in" "struct" "sig")
@@ -188,7 +189,8 @@
   (append urweb-module-head-syms
 	  '("datatype" "fun"
 	    "open" "type" "val" "and"
-	    "con" "constraint" "table" "sequence" "class" "cookie"))
+	    "con" "constraint" "table" "sequence" "class" "cookie"
+            "initializer"))
   "The starters of new expressions.")
 
 (defconst urweb-exptrail-syms