Mercurial > emacs
comparison lisp/term/x-win.el @ 6137:4c5eab6de8f9
(iconify-or-deiconify-frame): Force temporary invisibility even if this is the
only frame.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 04:42:38 +0000 |
| parents | adf5b18629c8 |
| children | fefa088fc7f9 |
comparison
equal
deleted
inserted
replaced
| 6136:74f4a8947d57 | 6137:4c5eab6de8f9 |
|---|---|
| 463 "Iconify the selected frame, or deiconify if it's currently an icon." | 463 "Iconify the selected frame, or deiconify if it's currently an icon." |
| 464 (interactive) | 464 (interactive) |
| 465 (if (eq (cdr (assq 'visibility (frame-parameters))) t) | 465 (if (eq (cdr (assq 'visibility (frame-parameters))) t) |
| 466 (iconify-frame) | 466 (iconify-frame) |
| 467 (let ((foo (selected-frame))) | 467 (let ((foo (selected-frame))) |
| 468 (make-frame-invisible foo) | 468 (make-frame-invisible foo t) |
| 469 (make-frame-visible foo)))) | 469 (make-frame-visible foo)))) |
| 470 | 470 |
| 471 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame | 471 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
| 472 global-map) | 472 global-map) |
| 473 | 473 |