Mercurial > emacs
comparison lisp/frame.el @ 50533:52ea574e2233
(modify-all-frames-parameters): Deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 10 Apr 2003 16:30:06 +0000 |
parents | 83d571fb0009 |
children | 8444fb4d51cf |
comparison
equal
deleted
inserted
replaced
50532:4737239e4dad | 50533:52ea574e2233 |
---|---|
502 (if display | 502 (if display |
503 (make-frame-on-display display parms) | 503 (make-frame-on-display display parms) |
504 (make-frame parms)))) | 504 (make-frame parms)))) |
505 | 505 |
506 ;;;; Creation of additional frames, and other frame miscellanea | 506 ;;;; Creation of additional frames, and other frame miscellanea |
507 | |
508 (defun modify-all-frames-parameters (alist) | |
509 "Modify all current and future frames parameters according to ALIST. | |
510 This changes `default-frame-alist' and possibly `initial-frame-alist'. | |
511 See help of `modify-frame-parameters' for more information." | |
512 (let (element) ;; temp | |
513 (dolist (frame (frame-list)) | |
514 (modify-frame-parameters frame alist)) | |
515 (dolist (pair alist) ;; conses to add/replace | |
516 ;; initial-frame-alist needs setting only when | |
517 ;; frame-notice-user-settings is true | |
518 (and frame-notice-user-settings | |
519 (setq element (assoc (car pair) initial-frame-alist)) | |
520 (setq initial-frame-alist (delq element initial-frame-alist))) | |
521 (and (setq element (assoc (car pair) default-frame-alist)) | |
522 (setq default-frame-alist (delq element default-frame-alist))))) | |
523 (and frame-notice-user-settings | |
524 (setq initial-frame-alist (append initial-frame-alist alist))) | |
525 (setq default-frame-alist (append default-frame-alist alist))) | |
526 | 507 |
527 (defun get-other-frame () | 508 (defun get-other-frame () |
528 "Return some frame other than the current frame. | 509 "Return some frame other than the current frame. |
529 Create one if necessary. Note that the minibuffer frame, if separate, | 510 Create one if necessary. Note that the minibuffer frame, if separate, |
530 is not considered (see `next-frame')." | 511 is not considered (see `next-frame')." |