diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-26 04:32:57 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-26 04:32:57 +0000 |
| commit | e48f95c966b2442063fbad785cb0b04f29a5985e (patch) | |
| tree | cb1b9388b9fb15556137d6701654d25d4e660480 /lisp/menu-bar.el | |
| parent | 8f6ea2e9b720d5b30938f13654494b700c014c62 (diff) | |
| download | emacs-e48f95c966b2442063fbad785cb0b04f29a5985e.tar.gz | |
(menu-bar-mode): Make menu-bar-mode without an argument toggle display of a
menu bar.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 3 |
1 files changed, 1 insertions, 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))) |