Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-defs.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-defs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 341, Fri Jun 18 19:10:12 1999 UTC revision 342, Sat Jun 19 09:26:38 1999 UTC
# Line 135  Line 135 
135    '("let" "abstype" "local" "struct" "sig")    '("let" "abstype" "local" "struct" "sig")
136    "Symbols matching the `end' symbol.")    "Symbols matching the `end' symbol.")
137    
138  (defconst sml-begin-symbols-re  (defconst sml-begin-syms-re
139    (sml-syms-re "let" "abstype" "local" "struct" "sig")    (sml-syms-re "let" "abstype" "local" "struct" "sig")
140    "Symbols matching the `end' symbol.")    "Symbols matching the `end' symbol.")
141    
# Line 202  Line 202 
202    
203  (defconst sml-open-paren  (defconst sml-open-paren
204    (sml-preproc-alist    (sml-preproc-alist
205     `((,(list* "with" "in" sml-begin-syms) . "\\<end\\>")))     `((,(list* "with" "in" sml-begin-syms) ,sml-begin-syms-re "\\<end\\>")))
206    "Symbols that should behave somewhat like opening parens.")    "Symbols that should behave somewhat like opening parens.")
207    
208  (defconst sml-close-paren  (defconst sml-close-paren
209    `(("in" "\\<l\\(ocal\\|et\\)\\>")    `(("in" "\\<l\\(ocal\\|et\\)\\>")
210      ("with" "\\<abstype\\>")      ("with" "\\<abstype\\>")
211      ("withtype" "\\<\\(abs\\|data\\)type\\>")      ("withtype" "\\<\\(abs\\|data\\)type\\>")
212      ("end" ,sml-begin-symbols-re)      ("end" ,sml-begin-syms-re)
213      ("then" "\\<if\\>")      ("then" "\\<if\\>")
214      ("else" "\\<if\\>" (sml-bolp))      ("else" "\\<if\\>" (sml-bolp))
215      ("of" "\\<case\\>")      ("of" "\\<case\\>")

Legend:
Removed from v.341  
changed lines
  Added in v.342

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0