changeset 106692:4af83423a0f1

* lisp/files.el (minibuffer-with-setup-hook): Doc fix (Bug#5149).
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 01 Jan 2010 15:03:37 -0500
parents ee43864593e4
children 5240a1bf44bc 943a92f3710b
files lisp/ChangeLog lisp/files.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jan 01 13:44:02 2010 -0500
+++ b/lisp/ChangeLog	Fri Jan 01 15:03:37 2010 -0500
@@ -1,3 +1,7 @@
+2010-01-01  Chong Yidong  <cyd@stupidchicken.com>
+
+	* files.el (minibuffer-with-setup-hook): Doc fix (Bug#5149).
+
 2010-01-01  Juri Linkov  <juri@jurta.org>
 
 	* comint.el (comint-input-ring-size): Make it a defcustom and
--- a/lisp/files.el	Fri Jan 01 13:44:02 2010 -0500
+++ b/lisp/files.el	Fri Jan 01 15:03:37 2010 -0500
@@ -1284,9 +1284,13 @@
     ))
 
 (defmacro minibuffer-with-setup-hook (fun &rest body)
-  "Add FUN to `minibuffer-setup-hook' while executing BODY.
+  "Temporarily add FUN to `minibuffer-setup-hook' while executing BODY.
 BODY should use the minibuffer at most once.
-Recursive uses of the minibuffer will not be affected."
+Recursive uses of the minibuffer are unaffected (FUN is not
+called additional times).
+
+This macro actually adds an auxilliary function that calls FUN,
+rather than FUN itself, to `minibuffer-setup-hook'."
   (declare (indent 1) (debug t))
   (let ((hook (make-symbol "setup-hook")))
     `(let (,hook)