mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(modify-all-frames-parameters): New function to change parameters in all

Browse source 
existing and future frames.
This commit is contained in:
Juanma Barranquero 2003-04-09 17:38:47 +00:00
parent 1cef654128
commit 034ade66e3
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/frame.el
View file

@ -505,6 +505,25 @@ 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,
@ -639,7 +658,6 @@ the user during startup."
(nreverse frame-initial-geometry-arguments))
(cdr param-list))
(defcustom focus-follows-mouse t
"*Non-nil if window system changes focus when you move the mouse.
You should set this variable to tell Emacs how your window manager