Mercurial > emacs
changeset 50533:52ea574e2233
(modify-all-frames-parameters): Deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 10 Apr 2003 16:30:06 +0000 |
| parents | 4737239e4dad |
| children | a3dafc05fe67 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 0 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- 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,