diff options
| author | Richard M. Stallman | 1993-07-27 21:58:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-27 21:58:54 +0000 |
| commit | 2d7bfcc3edfd291492f41906b119c24e321a9e8f (patch) | |
| tree | be4b0b41c54f505bb52343ee16ef549f9b62990b | |
| parent | c6e5e6e0835ee6d7ea9fa649e3b78b118c6fadf7 (diff) | |
| download | emacs-2d7bfcc3edfd291492f41906b119c24e321a9e8f.tar.gz emacs-2d7bfcc3edfd291492f41906b119c24e321a9e8f.zip | |
(iconify-or-deiconify-frame): New function. Use it for C-z.
| -rw-r--r-- | lisp/term/x-win.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index be6c026fa40..3fe85424e3f 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -459,7 +459,15 @@ This returns ARGS with the arguments that have been processed removed." | |||
| 459 | 459 | ||
| 460 | ;;;; Function keys | 460 | ;;;; Function keys |
| 461 | 461 | ||
| 462 | (substitute-key-definition 'suspend-emacs 'iconify-frame global-map) | 462 | (defun iconify-or-deiconify-frame () |
| 463 | "Iconify the selected frame, or deiconify if it's currently an icon." | ||
| 464 | (interactive) | ||
| 465 | (if (eq (cdr (assq 'visibility (frame-parameters))) t) | ||
| 466 | (iconify-frame) | ||
| 467 | (make-frame-visible))) | ||
| 468 | |||
| 469 | (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame | ||
| 470 | global-map) | ||
| 463 | 471 | ||
| 464 | ;; Map certain keypad keys into ASCII characters | 472 | ;; Map certain keypad keys into ASCII characters |
| 465 | ;; that people usually expect. | 473 | ;; that people usually expect. |