From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 24 May 2003 16:11:17 +0000 (+0000)
Subject: (iconify-or-deiconify-frame): Move from term/x-win.el.
X-Git-Tag: ttn-vms-21-2-B4~9998
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3db7df063f7f80e212a8f32deb13d3731ae23012;p=emacs.git

(iconify-or-deiconify-frame): Move from term/x-win.el.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index d67e4f42d30..2934153eb98 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -686,6 +686,13 @@ Otherwise, that variable should be nil."
       (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