Mercurial > emacs
changeset 50331:5742fd7a94a7
(iconify-or-deiconify-frame): Define for compatibility with packages
that use it.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 28 Mar 2003 17:46:09 +0000 |
| parents | e3d87b72b575 |
| children | 90e7d2037d2a |
| files | lisp/term/mac-win.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/mac-win.el Fri Mar 28 17:38:50 2003 +0000 +++ b/lisp/term/mac-win.el Fri Mar 28 17:46:09 2003 +0000 @@ -172,6 +172,13 @@ '(lambda () (defvar mac-ready-for-drag-n-drop t))) +(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))) + ; Define constant values to be set to mac-keyboard-text-encoding (defconst kTextEncodingMacRoman 0) (defconst kTextEncodingISOLatin1 513 "0x201")