(menu-bar-mode): Customize.

1 files changed, 9 insertions, 1 deletions

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 2c08e4f5b66..85083fc03f9 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -829,7 +829,15 @@ Do the same for the keys of the same name."
        minibuffer-local-map
        minibuffer-local-completion-map))
 
-(defvar menu-bar-mode nil)
+(defcustom menu-bar-mode nil
+  "Toggle display of a menu bar on each frame.
+Setting this variable directly does not take effect;
+use either \\[customize] or the function `menu-bar-mode'."
+  :set (lambda (symbol value)
+	 (menu-bar-mode (or value 0)))
+  :initialize 'custom-initialize-default
+  :type 'boolean
+  :group 'frames)
 
 (defun menu-bar-mode (flag)
   "Toggle display of a menu bar on each frame.