diff options
author | Richard M. Stallman <[email protected]> | 1993-07-27 21:58:54 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-07-27 21:58:54 +0000 |
commit | 2d7bfcc3edfd291492f41906b119c24e321a9e8f (patch) | |
tree | be4b0b41c54f505bb52343ee16ef549f9b62990b /lisp/term/x-win.el | |
parent | c6e5e6e0835ee6d7ea9fa649e3b78b118c6fadf7 (diff) |
(iconify-or-deiconify-frame): New function. Use it for C-z.
Diffstat (limited to 'lisp/term/x-win.el')
-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 be6c026fa4..3fe85424e3 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." ;;;; Function keys -(substitute-key-definition 'suspend-emacs 'iconify-frame global-map) +(defun iconify-or-deiconify-frame () + "Iconify the selected frame, or deiconify if it's currently an icon." + (interactive) + (if (eq (cdr (assq 'visibility (frame-parameters))) t) + (iconify-frame) + (make-frame-visible))) + +(substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame + global-map) ;; Map certain keypad keys into ASCII characters ;; that people usually expect. |