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 881, Thu Jul 19 20:07:53 2001 UTC revision 882, Thu Jul 19 20:11:12 2001 UTC
# Line 74  Line 74 
74    "The syntax table used in `sml-mode'.")    "The syntax table used in `sml-mode'.")
75    
76    
77  (easy-menu-define sml-mode-menu sml-mode-map "Menu used in sml-mode."  (easy-menu-define sml-mode-menu sml-mode-map "Menu used in `sml-mode'."
78    '("SML"    '("SML"
79      ("Process"      ("Process"
80       ["Start default ML compiler" sml           (fboundp 'sml)]       ["Start default ML compiler" sml           (fboundp 'sml)  t]
81       ["-" nil nil]       ["-" nil nil]
82       ["run CM.make"             sml-make        (featurep 'sml-proc)]       ["run CM.make"             sml-make        (featurep 'sml-proc)]
83       ["load ML source file"     sml-load-file   (featurep 'sml-proc)]       ["load ML source file"     sml-load-file   (featurep 'sml-proc)]
# Line 111  Line 111 
111      ["SML mode help (brief)"       describe-mode t]      ["SML mode help (brief)"       describe-mode t]
112      ["SML mode *info*"             sml-mode-info t]      ["SML mode *info*"             sml-mode-info t]
113      ["-----" nil nil]      ["-----" nil nil]
114      ["Remove overlay"    (sml-error-overlay 'undo) ;:active (sml-overlay-active-p)      ["Remove overlay"    (sml-error-overlay 'undo) t ;:active (sml-overlay-active-p)
115       ]))       ]))
116    
117  ;;; 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.
118  ;; 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.
119  ;; (defun sml-mode-menu-bar ()  ;; (defun sml-mode-menu-bar ()
120  ;;   "Make sure menus appear in the menu bar as well as under mouse 3."  ;;   "Make sure menus appear in the menu bar as well as under mouse 3."

Legend:
Removed from v.881  
changed lines
  Added in v.882

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