From e48f95c966b2442063fbad785cb0b04f29a5985e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 26 Feb 1994 04:32:57 +0000 Subject: [PATCH] (menu-bar-mode): Make menu-bar-mode without an argument toggle display of a menu bar. --- lisp/menu-bar.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 6bd699152e1..db897d7ed94 100644 --- 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))) -- 2.39.5