Mercurial > emacs

changeset 6100:b593e9df4b44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-mode): Make menu-bar-mode without an argument toggle display of a menu bar.
author Karl Heuer <kwzh@gnu.org>
date Sat, 26 Feb 1994 04:32:57 +0000
parents 19eaf70457d4
children 9b32ddce536b
files lisp/menu-bar.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Sat Feb 26 04:24:37 1994 +0000
+++ b/lisp/menu-bar.el	Sat Feb 26 04:32:57 1994 +0000
@@ -319,7 +319,6 @@
 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 @@
 
    ;; 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)))