procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(menu-bar-mode): Make menu-bar-mode without an argument toggle display of a

Browse source 
menu bar.
This commit is contained in:
Karl Heuer 1994-02-26 04:32:57 +00:00
parent 8f6ea2e9b7
commit e48f95c966
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/menu-bar.el
View file

@ -319,7 +319,6 @@ created in the future.
With a numeric argument, if the argument is negative,
turn off menu bars; otherwise, turn on menu bars."
(interactive "P")
(if flag (setq flag (prefix-numeric-value flag)))
;; Obtain the current setting by looking at default-frame-alist.
(let ((menu-bar-mode
@ -328,7 +327,7 @@ turn off menu bars; otherwise, turn on menu bars."
;; Tweedle it according to the argument.
(setq menu-bar-mode (if (null flag) (not menu-bar-mode)
(or (not (numberp flag)) (>= flag 0))))
(> (prefix-numeric-value flag) 0)))
;; Apply it to default-frame-alist.
(let ((parameter (assq 'menu-bar-lines default-frame-alist)))