mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2003-05-24 16:11:17 +00:00
parent 017be6c780
commit 3db7df063f
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/frame.el
View file

@ -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