(iconify-or-deiconify-frame): Define for compatibility with packages

that use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f12cfdb3ea5f4c166b4fb78a49d11e946231c5a5..255d2c40f19e1db69798c5d6251cd0b272dd3b84 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,22 @@
+2003-03-28  Sudish Joseph  <sudish@corp.earthlink.net>  (tiny change)
+
+       * term/mac-win.el (iconify-or-deiconify-frame): Define for
+       compatibility with packages that use it.
+
+2003-03-28  Lute Kamstra  <Lute.Kamstra@cwi.nl>
+
+       * emacs-lisp/checkdoc.el (checkdoc-display-status-buffer): Fix
+       docstring.
+       (checkdoc-interactive, checkdoc-message-interactive): Make them
+       perform spell checking when appropriate.
+       (checkdoc-interactive-loop): Fix docstring and a few typos.
+       (checkdoc-interactive-ispell-loop)
+       (checkdoc-message-interactive-ispell-loop): New functions.
+       (checkdoc-next-error): Fix docstring.
+       (checkdoc-this-string-valid-engine): Fix typo.
+       (checkdoc-ispell-docstring-engine): Do test for
+       checkdoc-autofix-flag = nil.
+
 2003-03-28  Jonathan Yavner  <jyavner@engineer.com>
 
        * emacs-lisp/testcover.el (testcover-mark-all): Handle screwy
@@ -9,7 +28,7 @@
        * vc-cvs.el (vc-cvs-parse-entry): Make sure a file with conflicts
        is marked as edited.
 
-2003-03-26  Kenichi Handa  <handa@etlken2>
+2003-03-26  Kenichi Handa  <handa@m17n.org>
 
        * files.el (recode-file-name): New function.
 
@@ -85,7 +104,7 @@
        (ido-wide-find-file, ido-wide-find-dir, ido-make-directory):
        Let-bind enable-recursive-minibuffers to t around read-string.
 
-2003-03-22  Kenichi Handa  <handa@etlken2>
+2003-03-22  Kenichi Handa  <handa@m17n.org>
 
        * international/fontset.el (setup-default-fontset):
        Use indian-font-char-range for specifying ranges of indian-glyph

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 6b014ddaba3923b7e0ac046d53ec7aa35d1f9174..2b66679e39ee536d1512fb89187b5014af73dba6 100644 (file)
--- 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")