# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1049992206 0
# Node ID 52ea574e2233ad7c2db4bd92f72e421fd7a6588a
# Parent  4737239e4dad2a2f941b6fc6ba10e9987ddac253
(modify-all-frames-parameters): Deleted.

diff -r 4737239e4dad -r 52ea574e2233 lisp/frame.el
--- a/lisp/frame.el	Thu Apr 10 16:26:12 2003 +0000
+++ b/lisp/frame.el	Thu Apr 10 16:30:06 2003 +0000
@@ -505,25 +505,6 @@
 
 ;;;; 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,