diff options
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") |