[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[Miles Bader]

Index: emacs/lisp/term/mac-win.el
diff -c emacs/lisp/term/mac-win.el:1.18 emacs/lisp/term/mac-win.el:1.19
*** emacs/lisp/term/mac-win.el:1.18     Tue Feb  4 08:28:06 2003
--- emacs/lisp/term/mac-win.el  Fri Mar 28 12:46:09 2003
***************
*** 172,177 ****
--- 172,184 ----
          '(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")