Custom var to control menu on @ load time

mattkeller · Oct 12, 2010 · bc2283e · bc2283e
1 parent a5a4c6b
commit bc2283e
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/mk-project.el b/mk-project.el
@@ -211,6 +211,12 @@ value is not used if a custom find command is set in
   :type 'boolean
   :group 'mk-project)
 
+(defcustom mk-proj-menu-on t
+  "If non-nil, define the 'mk-project' menu in the menu-bar at
+load time. See also `project-menu-remove'."
+  :type 'boolean
+  :group 'mk-project)
+
 ;; ---------------------------------------------------------------------
 ;; Utils
 ;; ---------------------------------------------------------------------
@@ -774,6 +780,9 @@ project is not loaded."
   (interactive)
   (global-unset-key [menu-bar mkproject]))
 
+(when mk-proj-menu-on 
+  (project-menu))
+
 (provide 'mk-project)
 
 ;;; mk-project.el ends here