Mercurial > emacs

diff lisp/term/x-win.el @ 4313:87472f1eb031

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iconify-or-deiconify-frame): New function. Use it for C-z.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 Jul 1993 21:58:54 +0000
parents 2e51ffb537a8
children 59aa39575936
line wrap: on
line diff
--- 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.