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."
 
 ;;;; 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.