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

diff --git a/lisp/frame.el b/lisp/frame.el
index d67e4f42d3024ba27dd8a363b33b94fc8567a8b5..2934153eb98c4ff9f72aef254c9c76fe79b6300a 100644 (file)
--- 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