From d05077c301aa396b2fe138655be779a292641e2d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jun 1994 18:20:55 +0000 Subject: (frame-notice-user-settings): Make menu-bar-mode and default-frame-alist consistent with each other. --- lisp/frame.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp') diff --git a/lisp/frame.el b/lisp/frame.el index e76ac2f1fe7..524a9f3d8a5 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -166,6 +166,14 @@ These supersede the values given in `default-frame-alist'.") ;;; information to which we must react; do what needs to be done. (defun frame-notice-user-settings () + ;; 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)))) + ;; Creating and deleting frames may shift the selected frame around, ;; and thus the current buffer. Protect against that. We don't ;; want to use save-excursion here, because that may also try to set -- cgit v1.2.1