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 393, Fri Aug 6 08:41:25 1999 UTC revision 394, Mon Aug 9 21:45:51 1999 UTC
# Line 25  Line 25 
25  ;;; Code  ;;; Code
26  ;;;  ;;;
27    
28    (defgroup sml ()
29      "Editing SML code."
30      :group 'languages)
31    
32  (defvar sml-outline-regexp "[ \t]*\\((\\*+\\|\\(let[ \t]+\\)?fun.\\)"  (defvar sml-outline-regexp "[ \t]*\\((\\*+\\|\\(let[ \t]+\\)?fun.\\)"
33    "Regexp matching a major heading.")    "Regexp matching a major heading.")
34    
# Line 48  Line 52 
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.")    "Generic bindings used in sml-mode and sml-inferior-mode."
56      :group 'sml)
57    
58  (defmap sml-mode-map  (defmap sml-mode-map
59    '(("\C-c\C-c" . sml-compile)    '(("\C-c\C-c" . sml-compile)
# Line 56  Line 61 
61      ("\C-c\C-r" . sml-send-region)      ("\C-c\C-r" . sml-send-region)
62      ("\C-c\C-b" . sml-send-buffer))      ("\C-c\C-b" . sml-send-buffer))
63    "The keymap used in sml-mode."    "The keymap used in sml-mode."
64    :inherit sml-bindings)    :inherit sml-bindings
65      :group 'sml)
66    
67  (defsyntax sml-mode-syntax-table  (defsyntax sml-mode-syntax-table
68    '((?\*   . ". 23n")    '((?\*   . ". 23n")
# Line 108  Line 114 
114      ["SML mode *info*"             sml-mode-info t]      ["SML mode *info*"             sml-mode-info t]
115      ["SML mode version"            sml-mode-version t]      ["SML mode version"            sml-mode-version t]
116      ["-----" nil nil]      ["-----" nil nil]
117      ["Remove overlay"    (sml-error-overlay 'undo) :active (sml-overlay-active-p)]))      ["Remove overlay"    (sml-error-overlay 'undo) ;:active (sml-overlay-active-p)
118         ]))
119    
120  ;;; Make's sure they appear in the menu bar when sml-mode-map is active.  ;;; Make's sure they appear in the menu bar when sml-mode-map is active.
121  ;; On the hook for XEmacs only -- see easy-menu-add in auc-menu.el.  ;; On the hook for XEmacs only -- see easy-menu-add in auc-menu.el.

Legend:
Removed from v.393  
changed lines
  Added in v.394

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