From 3db7df063f7f80e212a8f32deb13d3731ae23012 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 24 May 2003 16:11:17 +0000 Subject: [PATCH] (iconify-or-deiconify-frame): Move from term/x-win.el. --- lisp/frame.el | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- 2.39.2