From c337cd0a628667997a3f40d7439df8cce968e34d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 28 Mar 2003 17:49:49 +0000 Subject: [PATCH] (iconify-or-deiconify-frame): Define for compatibility with packages that use it. --- lisp/ChangeLog | 23 +++++++++++++++++++++-- lisp/term/mac-win.el | 7 +++++++ 2 files changed, 28 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f12cfdb3ea5..255d2c40f19 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,22 @@ +2003-03-28 Sudish Joseph (tiny change) + + * term/mac-win.el (iconify-or-deiconify-frame): Define for + compatibility with packages that use it. + +2003-03-28 Lute Kamstra + + * 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 * 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 +2003-03-26 Kenichi Handa * 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 +2003-03-22 Kenichi Handa * 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 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") -- 2.39.2