[Emacs-diffs] Changes to emacs/lisp/frame.el

[Juanma Barranquero]

Index: emacs/lisp/frame.el
diff -c emacs/lisp/frame.el:1.202 emacs/lisp/frame.el:1.203
*** emacs/lisp/frame.el:1.202   Thu Jun  5 21:32:03 2003
--- emacs/lisp/frame.el Sun Jul 13 13:48:58 2003
***************
*** 505,510 ****
--- 505,530 ----
  
  ;;;; 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,