# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1049909927 0
# Node ID 2b866641a2df3d7739790a3ab86211ca1e7593ef
# Parent  ac9f1c53789e6b883720e428b1d0cc9d6ed60bd3
(modify-all-frames-parameters): New function to change parameters in all
existing and future frames.

diff -r ac9f1c53789e -r 2b866641a2df lisp/frame.el
--- a/lisp/frame.el	Wed Apr 09 17:28:30 2003 +0000
+++ b/lisp/frame.el	Wed Apr 09 17:38:47 2003 +0000
@@ -505,6 +505,25 @@
 
 ;;;; 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 @@
 	(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