Mercurial > emacs
comparison lisp/frame.el @ 4930:04dee67f86cf
(set-frame-configuration): Iconify frames
rather than making them invisible.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Nov 1993 13:14:05 +0000 |
| parents | 3963d8a9f342 |
| children | c7525f1cfaba |
comparison
equal
deleted
inserted
replaced
| 4929:2b5e416494d1 | 4930:04dee67f86cf |
|---|---|
| 401 "Restore the frames to the state described by CONFIGURATION. | 401 "Restore the frames to the state described by CONFIGURATION. |
| 402 Each frame listed in CONFIGURATION has its position, size, window | 402 Each frame listed in CONFIGURATION has its position, size, window |
| 403 configuration, and other parameters set as specified in CONFIGURATION. | 403 configuration, and other parameters set as specified in CONFIGURATION. |
| 404 Ordinarily, this function deletes all existing frames not | 404 Ordinarily, this function deletes all existing frames not |
| 405 listed in CONFIGURATION. But if optional second argument NODELETE | 405 listed in CONFIGURATION. But if optional second argument NODELETE |
| 406 is given and non-nil, the unwanted frames are made invisible instead." | 406 is given and non-nil, the unwanted frames are iconified instead." |
| 407 (or (frame-configuration-p configuration) | 407 (or (frame-configuration-p configuration) |
| 408 (signal 'wrong-type-argument | 408 (signal 'wrong-type-argument |
| 409 (list 'frame-configuration-p configuration))) | 409 (list 'frame-configuration-p configuration))) |
| 410 (let ((config-alist (cdr configuration)) | 410 (let ((config-alist (cdr configuration)) |
| 411 frames-to-delete) | 411 frames-to-delete) |
| 424 parms)) | 424 parms)) |
| 425 (set-window-configuration (nth 2 parameters))) | 425 (set-window-configuration (nth 2 parameters))) |
| 426 (setq frames-to-delete (cons frame frames-to-delete)))))) | 426 (setq frames-to-delete (cons frame frames-to-delete)))))) |
| 427 (frame-list)) | 427 (frame-list)) |
| 428 (if nodelete | 428 (if nodelete |
| 429 (mapcar 'make-frame-invisible frames-to-delete) | 429 ;; Note: making frames invisible here was tried |
| 430 ;; but led to some strange behavior--each time the frame | |
| 431 ;; was made visible again, the window manager asked afresh | |
| 432 ;; for where to put it. | |
| 433 (mapcar 'iconify-frame frames-to-delete) | |
| 430 (mapcar 'delete-frame frames-to-delete)))) | 434 (mapcar 'delete-frame frames-to-delete)))) |
| 431 | 435 |
| 432 (defun frame-configuration-p (object) | 436 (defun frame-configuration-p (object) |
| 433 "Return non-nil if OBJECT seems to be a frame configuration. | 437 "Return non-nil if OBJECT seems to be a frame configuration. |
| 434 Any list whose car is `frame-configuration' is assumed to be a frame | 438 Any list whose car is `frame-configuration' is assumed to be a frame |