summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2003-04-09 17:38:47 +0000
committerJuanma Barranquero <lekktu@gmail.com>2003-04-09 17:38:47 +0000
commit034ade66e359b80aa242f7dc18087f75231fd224 (patch)
treebb6dc816b1eee883d2bddb2564f52e2dddf5744e /lisp/frame.el
parent1cef654128ac75bf1cc0b5014b1b692f85d8f1b8 (diff)
downloademacs-034ade66e359b80aa242f7dc18087f75231fd224.tar.gz
(modify-all-frames-parameters): New function to change parameters in all
existing and future frames.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el20
1 files changed, 19 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index ee879c531b2..e83db698e5a 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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