# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053792677 0
# Node ID 8444fb4d51cf9f6be4960bcbff39af81446ad1cf
# Parent  52ab727d168b210714bd95c78668c8d09475a0ba
(iconify-or-deiconify-frame): Move from term/x-win.el.

diff -r 52ab727d168b -r 8444fb4d51cf lisp/frame.el
--- a/lisp/frame.el	Sat May 24 14:52:10 2003 +0000
+++ b/lisp/frame.el	Sat May 24 16:11:17 2003 +0000
@@ -686,6 +686,13 @@
       (setq arg (1+ arg)))
     (select-frame-set-input-focus frame)))
 
+(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)))
+
 (defun make-frame-names-alist ()
   (let* ((current-frame (selected-frame))
 	 (falist