Mercurial > emacs
comparison lisp/term/x-win.el @ 6141:fefa088fc7f9
(iconify-or-deiconify-frame): Don't make invisible before making visible.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 02 Mar 1994 05:29:01 +0000 |
| parents | 4c5eab6de8f9 |
| children | f5f8e0bcfaaf |
comparison
equal
deleted
inserted
replaced
| 6140:35fc497c9f4e | 6141:fefa088fc7f9 |
|---|---|
| 462 (defun iconify-or-deiconify-frame () | 462 (defun iconify-or-deiconify-frame () |
| 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 (make-frame-visible))) |
| 468 (make-frame-invisible foo t) | |
| 469 (make-frame-visible foo)))) | |
| 470 | 468 |
| 471 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame | 469 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
| 472 global-map) | 470 global-map) |
| 473 | 471 |
| 474 ;; Map certain keypad keys into ASCII characters | 472 ;; Map certain keypad keys into ASCII characters |