From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jun 1994 18:20:55 +0000 (+0000)
Subject: (frame-notice-user-settings): Make menu-bar-mode
X-Git-Tag: emacs-19.34~7797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ffa6186965c268f10f8132423a5c32c06e79b53;p=emacs.git

(frame-notice-user-settings): Make menu-bar-mode
and default-frame-alist consistent with each other.
---

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