1438 |
(list 'menu-item "Enter" 'exit-minibuffer |
(list 'menu-item "Enter" 'exit-minibuffer |
1439 |
:help "Terminate input and exit minibuffer"))) |
:help "Terminate input and exit minibuffer"))) |
1440 |
|
|
1441 |
(defcustom menu-bar-mode nil |
(defcustom menu-bar-mode t |
1442 |
"Toggle display of a menu bar on each frame. |
"Toggle display of a menu bar on each frame. |
1443 |
Setting this variable directly does not take effect; |
Setting this variable directly does not take effect; |
1444 |
use either \\[customize] or the function `menu-bar-mode'." |
use either \\[customize] or the function `menu-bar-mode'." |
1448 |
:type 'boolean |
:type 'boolean |
1449 |
:group 'frames) |
:group 'frames) |
1450 |
|
|
|
;;; `menu-bar-mode' doesn't really have a standard value, as it depend |
|
|
;;; on where and how Emacs was started. By removing the standard |
|
|
;;; value, we ensure that customize will always save it. |
|
|
;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11. |
|
|
(put 'menu-bar-mode 'standard-value nil) |
|
|
|
|
1451 |
(defun menu-bar-mode (&optional flag) |
(defun menu-bar-mode (&optional flag) |
1452 |
"Toggle display of a menu bar on each frame. |
"Toggle display of a menu bar on each frame. |
1453 |
This command applies to all frames that exist and frames to be |
This command applies to all frames that exist and frames to be |