Commit 7b7d6615 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(menu-bar-mode): Make this a global variable.

(menu-bar-mode): Make variable menu-bar-mode and default-frame-alist
consistent.
parent 37b2bef6
......@@ -398,6 +398,8 @@ A large number or nil slows down menu responsiveness.")
;;; mode-name
;;; (or (buffer-file-name) ""))))))
(defvar menu-bar-mode nil)
(defun menu-bar-mode (flag)
"Toggle display of a menu bar on each frame.
This command applies to all frames that exist and frames to be
......@@ -406,12 +408,15 @@ With a numeric argument, if the argument is negative,
turn off menu bars; otherwise, turn on menu bars."
(interactive "P")
;; Obtain the current setting by looking at default-frame-alist.
(let ((menu-bar-mode
(not (zerop (let ((assq (assq 'menu-bar-lines default-frame-alist)))
(if assq (cdr assq) 0))))))
;; Make menu-bar-mode and default-frame-alist consistent.
(let ((default (assq 'menu-bar-lines default-frame-alist)))
(if default
(setq menu-bar-mode (not (eq (cdr default) 0)))
(setq default-frame-alist
(cons (cons 'menu-bar-lines (if menu-bar-mode 1 0))
default-frame-alist))))
;; Tweedle it according to the argument.
;; Toggle or set the mode, according to FLAG.
(setq menu-bar-mode (if (null flag) (not menu-bar-mode)
(> (prefix-numeric-value flag) 0)))
......@@ -432,7 +437,7 @@ turn off menu bars; otherwise, turn on menu bars."
(if menu-bar-mode 1 0))))
(modify-frame-parameters (car frames)
(list (cons 'height height))))
(setq frames (cdr frames))))))
(setq frames (cdr frames)))))
(provide 'menu-bar)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment