diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-03-28 17:49:49 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-03-28 17:49:49 +0000 |
| commit | c337cd0a628667997a3f40d7439df8cce968e34d (patch) | |
| tree | 994bf88d6be6fdb773f8de2645ce2fdb3eeece89 /lisp/term | |
| parent | b08b261e8b7aabbc3a7647e620728a6dbe973652 (diff) | |
| download | emacs-c337cd0a628667997a3f40d7439df8cce968e34d.tar.gz | |
(iconify-or-deiconify-frame): Define for compatibility with packages
that use it.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 6b014ddaba3..2b66679e39e 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -172,6 +172,13 @@ Switch to a buffer editing the last file dropped." '(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") |