(iconify-or-deiconify-frame): New function. Use it for C-z.

[gnu-emacs] / lisp / term / x-win.el

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index be6c026fa40b364059f9a65aade88b91fe7e492a..3fe85424e3ff0c7d62f3dfeca34ba51d2148bf7f 100644 (file)
--- 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."
 \f
 ;;;; 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.