[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/frame.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/frame.el |
Date: |
Wed, 09 Apr 2003 13:38:47 -0400 |
Index: emacs/lisp/frame.el
diff -c emacs/lisp/frame.el:1.197 emacs/lisp/frame.el:1.198
*** emacs/lisp/frame.el:1.197 Wed Apr 9 13:28:30 2003
--- emacs/lisp/frame.el Wed Apr 9 13:38:47 2003
***************
*** 505,510 ****
--- 505,529 ----
;;;; 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,
***************
*** 638,644 ****
(setq frame-initial-geometry-arguments
(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.
--- 657,662 ----