# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743810334 0
# Node ID 87472f1eb0319c6b057695c42748f04209f59f90
# Parent  4faf8d99ef4a930ff8563b6f0e1b5c6d0a684d47
(iconify-or-deiconify-frame): New function.  Use it for C-z.

diff -r 4faf8d99ef4a -r 87472f1eb031 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Tue Jul 27 20:21:14 1993 +0000
+++ b/lisp/term/x-win.el	Tue Jul 27 21:58:54 1993 +0000
@@ -459,7 +459,15 @@
 
 ;;;; 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.