Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2ffa6186
Commit
2ffa6186
authored
Jun 25, 1994
by
Richard M. Stallman
Browse files
(frame-notice-user-settings): Make menu-bar-mode
and default-frame-alist consistent with each other.
parent
7b7d6615
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
lisp/frame.el
lisp/frame.el
+8
-0
No files found.
lisp/frame.el
View file @
2ffa6186
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment