diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-08 13:14:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-08 13:14:05 +0000 |
| commit | 5da841d2d5ef64f5354c71edaa908b360aa8b81e (patch) | |
| tree | 1be90044e9b804aaf5ddf8f2db5d033867adf223 | |
| parent | 82c5b4be009241b25a17f72b6b61d29f3b521883 (diff) | |
| download | emacs-5da841d2d5ef64f5354c71edaa908b360aa8b81e.tar.gz | |
(set-frame-configuration): Iconify frames
rather than making them invisible.
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index b64256eedb4..9ef36acf308 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -403,7 +403,7 @@ Each frame listed in CONFIGURATION has its position, size, window configuration, and other parameters set as specified 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." +is given and non-nil, the unwanted frames are iconified instead." (or (frame-configuration-p configuration) (signal 'wrong-type-argument (list 'frame-configuration-p configuration))) @@ -426,7 +426,11 @@ is given and non-nil, the unwanted frames are made invisible instead." (setq frames-to-delete (cons frame frames-to-delete)))))) (frame-list)) (if nodelete - (mapcar 'make-frame-invisible frames-to-delete) + ;; Note: making frames invisible here was tried + ;; but led to some strange behavior--each time the frame + ;; was made visible again, the window manager asked afresh + ;; for where to put it. + (mapcar 'iconify-frame frames-to-delete) (mapcar 'delete-frame frames-to-delete)))) (defun frame-configuration-p (object) |