From 2d7bfcc3edfd291492f41906b119c24e321a9e8f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 27 Jul 1993 21:58:54 +0000 Subject: [PATCH] (iconify-or-deiconify-frame): New function. Use it for C-z. --- lisp/term/x-win.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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. -- 2.39.2