aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/term
diff options
context:
space:
mode:
authorJuanma Barranquero <[email protected]>2003-03-28 17:49:49 +0000
committerJuanma Barranquero <[email protected]>2003-03-28 17:49:49 +0000
commitc337cd0a628667997a3f40d7439df8cce968e34d (patch)
tree994bf88d6be6fdb773f8de2645ce2fdb3eeece89 /lisp/term
parentb08b261e8b7aabbc3a7647e620728a6dbe973652 (diff)
(iconify-or-deiconify-frame): Define for compatibility with packages
that use it.
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/mac-win.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 6b014ddaba..2b66679e39 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")