Mercurial > emacs
changeset 8056:1c5fd2cdfb36
(frame-notice-user-settings): Make menu-bar-mode
and default-frame-alist consistent with each other.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 25 Jun 1994 18:20:55 +0000 |
| parents | 6a0af6085c1a |
| children | 11a0c2f22d7e |
| files | lisp/frame.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sat Jun 25 18:20:30 1994 +0000 +++ b/lisp/frame.el Sat Jun 25 18:20:55 1994 +0000 @@ -166,6 +166,14 @@ ;;; 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