Mercurial > emacs
changeset 4919:3963d8a9f342
(set-frame-configuration): If NODELETE, make the unwanted frames invisible.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Nov 1993 08:10:46 +0000 |
| parents | e928d39564ad |
| children | ccca18983144 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sat Nov 06 08:05:07 1993 +0000 +++ b/lisp/frame.el Sun Nov 07 08:10:46 1993 +0000 @@ -401,8 +401,9 @@ "Restore the frames to the state described by CONFIGURATION. Each frame listed in CONFIGURATION has its position, size, window configuration, and other parameters set as specified in CONFIGURATION. -Unless optional second argument NODELETE is given and non-nil, deletes -all existing frames not listed in CONFIGURATION." +Ordinarily, this function deletes all existing frames not +listed in CONFIGURATION. But if optional second argument NODELETE +is given and non-nil, the unwanted frames are made invisible instead." (or (frame-configuration-p configuration) (signal 'wrong-type-argument (list 'frame-configuration-p configuration))) @@ -424,8 +425,9 @@ (set-window-configuration (nth 2 parameters))) (setq frames-to-delete (cons frame frames-to-delete)))))) (frame-list)) - (or nodelete - (mapcar 'delete-frame frames-to-delete)))) + (if nodelete + (mapcar 'make-frame-invisible frames-to-delete) + (mapcar 'delete-frame frames-to-delete)))) (defun frame-configuration-p (object) "Return non-nil if OBJECT seems to be a frame configuration.