diff options
author | Juanma Barranquero <[email protected]> | 2003-07-13 17:48:58 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2003-07-13 17:48:58 +0000 |
commit | 63019bad3a83e24424397e7ade2836b323405877 (patch) | |
tree | 641cd316f1720c5e76b6c1e259c65f5d226a91c7 /lisp/frame.el | |
parent | 517b2c378d3003cbe01627a357d61721ba6f5978 (diff) |
(modify-all-frames-parameters): Reinstall (copyright papers received).
Diffstat (limited to 'lisp/frame.el')
-rw-r--r-- | lisp/frame.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 8ed5776550..f8df2c7a2e 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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, |