Mercurial > emacs

changeset 51180:8444fb4d51cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iconify-or-deiconify-frame): Move from term/x-win.el.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 24 May 2003 16:11:17 +0000
parents 52ab727d168b
children 9de1323b5882
files lisp/frame.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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