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 534, Thu Feb 17 22:14:04 2000 UTC revision 535, Fri Feb 18 16:49:10 2000 UTC
# Line 51  Line 51 
51      ;;("\t"     . sml-indent-line)      ; ...except this one      ;;("\t"     . sml-indent-line)      ; ...except this one
52      ;; Process commands added to sml-mode-map -- these should autoload      ;; Process commands added to sml-mode-map -- these should autoload
53      ("\C-c\C-l" . sml-load-file)      ("\C-c\C-l" . sml-load-file)
54      ("\C-c`"    . sml-next-error))      ;;("\C-c`"  . sml-next-error)
55    "Generic bindings used in sml-mode and sml-inferior-mode."      )
56      "Generic bindings used in `sml-mode' and `inferior-sml-mode'."
57    :group 'sml)    :group 'sml)
58    
59  (defmap sml-mode-map  (defmap sml-mode-map
60    '(("\C-c\C-c" . sml-compile)    '(("\C-c\C-c" . sml-compile)
61      ("\C-c\C-s" . switch-to-sml)      ("\C-c\C-s" . switch-to-sml)
62      ("\C-c\C-r" . sml-send-region)      ("\C-c\C-r" . sml-send-region)
63      ("\C-c\C-b" . sml-send-buffer))      ("\C-c\C-b" . sml-send-buffer)
64    "The keymap used in sml-mode."      ([(meta shift down-mouse-1)] . sml-drag-region))
65      "The keymap used in `sml-mode'."
66    :inherit sml-bindings    :inherit sml-bindings
67    :group 'sml)    :group 'sml)
68    
69  (defsyntax sml-mode-syntax-table  (defsyntax sml-mode-syntax-table
70    '((?\*   . ". 23n")    `((?\*   . ,(if sml-builtin-nested-comments-flag ". 23n" ". 23"))
71      (?\(   . "()1")      (?\(   . "()1")
72      (?\)   . ")(4")      (?\)   . ")(4")
73      ("._'" . "_")      ("._'" . "_")
# Line 89  Line 91 
91       ["send buffer contents"    sml-send-buffer (featurep 'sml-proc)]       ["send buffer contents"    sml-send-buffer (featurep 'sml-proc)]
92       ["send region"             sml-send-region (featurep 'sml-proc)]       ["send region"             sml-send-region (featurep 'sml-proc)]
93       ["send paragraph"          sml-send-function (featurep 'sml-proc)]       ["send paragraph"          sml-send-function (featurep 'sml-proc)]
94       ["goto next error"         sml-next-error  (featurep 'sml-proc)]       ;;["goto next error"               sml-next-error  (featurep 'sml-proc)]
95         ["goto next error"         next-error      (featurep 'sml-proc)]
96       ["---" nil nil]       ["---" nil nil]
97       ["Standard ML of New Jersey" sml-smlnj     (fboundp 'sml-smlnj)]       ["Standard ML of New Jersey" sml-smlnj     (fboundp 'sml-smlnj)]
98       ["Poly/ML"                 sml-poly-ml     (fboundp 'sml-poly-ml)]       ["Poly/ML"                 sml-poly-ml     (fboundp 'sml-poly-ml)]
# Line 245  Line 248 
248  (defconst sml-pipehead-re  (defconst sml-pipehead-re
249    (concat    (concat
250     "|\\S.\\|"     "|\\S.\\|"
251     (sml-syms-re "of" "fun" "fn" "and" "handle" "datatype" "abstype"))     (sml-syms-re "fun" "fn" "and" "handle" "datatype" "abstype"))
252    "A `|' corresponds to one of these.")    "A `|' corresponds to one of these.")
253    
254  ;;  ;;

Legend:
Removed from v.534  
changed lines
  Added in v.535

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