(sml-mode-menu): Add an explicit t for always-active.

diff --git a/sml-defs.el b/sml-defs.el
index cbf7ce10fbb2ca54a3d92215a4274f1ca9661d04..8349d92168b4a0b70373ff884eb51f50fcf0a98c 100644 (file)
--- a/sml-defs.el
+++ b/sml-defs.el
@@ -74,10 +74,10 @@ notion of \"the end of an outline\".")
   "The syntax table used in `sml-mode'.")
 
 
-(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'."
   '("SML"
     ("Process"
-     ["Start default ML compiler" sml          (fboundp 'sml)]
+     ["Start default ML compiler" sml          (fboundp 'sml)  t]
      ["-" nil nil]
      ["run CM.make"            sml-make        (featurep 'sml-proc)]
      ["load ML source file"    sml-load-file   (featurep 'sml-proc)]
@@ -111,10 +111,10 @@ notion of \"the end of an outline\".")
     ["SML mode help (brief)"       describe-mode t]
     ["SML mode *info*"             sml-mode-info t]
     ["-----" nil nil]
-    ["Remove overlay"    (sml-error-overlay 'undo) ;:active (sml-overlay-active-p)
+    ["Remove overlay"    (sml-error-overlay 'undo) t ;:active (sml-overlay-active-p)
      ]))
 
-;;; 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.
 ;; On the hook for XEmacs only -- see easy-menu-add in auc-menu.el.
 ;; (defun sml-mode-menu-bar ()
 ;;   "Make sure menus appear in the menu bar as well as under mouse 3."