diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-24 16:11:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-24 16:11:17 +0000 |
| commit | 3db7df063f7f80e212a8f32deb13d3731ae23012 (patch) | |
| tree | 051a65ba40b31f1599b67ffc6eedfe54ecd73b3d | |
| parent | 017be6c78048b28ef091095843904daaa18ec63e (diff) | |
| download | emacs-3db7df063f7f80e212a8f32deb13d3731ae23012.tar.gz | |
(iconify-or-deiconify-frame): Move from term/x-win.el.
| -rw-r--r-- | lisp/frame.el | 7 |
1 files changed, 7 insertions, 0 deletions
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 |