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
63019bad
Commit
63019bad
authored
Jul 13, 2003
by
Juanma Barranquero
Browse files
(modify-all-frames-parameters): Reinstall (copyright papers received).
parent
517b2c37
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
20 additions
and
0 deletions
+20
-0
lisp/frame.el
lisp/frame.el
+20
-0
No files found.
lisp/frame.el
View file @
63019bad
...
...
@@ -505,6 +505,26 @@ React to settings of `default-frame-alist', `initial-frame-alist' there."
;;;; Creation of additional frames, and other frame miscellanea
(
defun
modify-all-frames-parameters
(
alist
)
"modify all current and future frames parameters according to ALIST.
This changes `default-frame-alist' and possibly `initial-frame-alist'.
See help of `modify-frame-parameters' for more information."
(
let
(
element
)
;; temp
(
dolist
(
frame
(
frame-list
))
(
modify-frame-parameters
frame
alist
))
(
dolist
(
pair
alist
)
;; conses to add/replace
;; initial-frame-alist needs setting only when
;; frame-notice-user-settings is true
(
and
frame-notice-user-settings
(
setq
element
(
assoc
(
car
pair
)
initial-frame-alist
))
(
setq
initial-frame-alist
(
delq
element
initial-frame-alist
)))
(
and
(
setq
element
(
assoc
(
car
pair
)
default-frame-alist
))
(
setq
default-frame-alist
(
delq
element
default-frame-alist
)))))
(
and
frame-notice-user-settings
(
setq
initial-frame-alist
(
append
initial-frame-alist
alist
)))
(
setq
default-frame-alist
(
append
default-frame-alist
alist
)))
(
defun
get-other-frame
()
"Return some frame other than the current frame.
Create one if necessary. Note that the minibuffer frame, if separate,
...
...
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