From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 10 Apr 2003 16:31:00 +0000 (+0000)
Subject: (modify-all-frames-parameters): Deleted.
X-Git-Tag: ttn-vms-21-2-B4~10559
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7418081f483420a7e009584f0053665a7ece9b97;p=emacs.git

(modify-all-frames-parameters): Deleted.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eabf1af02bd..d529fc50928 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2003-04-10  Juanma Barranquero  <lektu@terra.es>
+
+	* frame.el (modify-all-frames-parameters): Deleted.
+
+2003-04-10  Sebastian Tennant  <seb@albert.vcisp.net>  (tiny change)
+
+	* desktop.el (desktop-buffer-file): Restore major-mode if it is
+	different from the normal mode.
+
 2003-04-10  Kenichi Handa  <handa@m17n.org>
 
 	* international/mule.el: Set
diff --git a/lisp/frame.el b/lisp/frame.el
index 92c8ba8cfd1..d67e4f42d30 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -505,25 +505,6 @@ 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,