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
61f2bcd7
Commit
61f2bcd7
authored
Sep 26, 2000
by
Gerd Moellmann
Browse files
(frame-notice-user-settings): Make tool-bar-mode and
default-frame-alist consistent.
parent
31d929e5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
7 deletions
+16
-7
lisp/frame.el
lisp/frame.el
+16
-7
No files found.
lisp/frame.el
View file @
61f2bcd7
...
...
@@ -221,13 +221,22 @@ Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args."
"Act on user's init file settings of frame parameters.
React to settings of `default-frame-alist', `initial-frame-alist' there."
;; Make menu-bar-mode and default-frame-alist consistent.
(
if
(
boundp
'menu-bar-mode
)
(
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
)))))
(
when
(
boundp
'menu-bar-mode
)
(
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
)))))
;; Make tool-bar-mode and default-frame-alist consistent.
(
when
(
boundp
'tool-bar-mode
)
(
let
((
default
(
assq
'tool-bar-lines
default-frame-alist
)))
(
if
default
(
setq
tool-bar-mode
(
not
(
eq
(
cdr
default
)
0
)))
(
setq
default-frame-alist
(
cons
(
cons
'tool-bar-lines
(
if
tool-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
...
...
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