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

menu bar.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 6bd699152e11eda85cbd41c53c5e85f2a8dde0e2..db897d7ed9492ecbefac179600dff5f96e7f45de 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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)))