* emacs-lisp/map-ynp.el (map-y-or-n-p): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99e9150cd7befefdb3feb1656ae2eed715483782..da2bda0b17b89fd62f1491dc3cf17908af9b65dc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-12  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * emacs-lisp/map-ynp.el (map-y-or-n-p): Fix last change.
+
 2013-07-12  Eli Zaretskii  <eliz@gnu.org>
 
        * simple.el (next-line, previous-line): Document TRY-VSCROLL and ARG.

diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el
index 1919d47687bedf41880be7f648043b71abf54c91..56bfe04f9ce6c0f582b0d820337451ea55a10300 100644 (file)
--- a/lisp/emacs-lisp/map-ynp.el
+++ b/lisp/emacs-lisp/map-ynp.el
@@ -131,8 +131,9 @@ Returns the number of actions taken."
     (unwind-protect
        (progn
          (if (stringp prompter)
-             (setq prompter (lambda (object)
-                              (format prompter object))))
+             (setq prompter (let ((prompter prompter))
+                              (lambda (object)
+                                (format prompter object)))))
          (while (funcall next)
            (setq prompt (funcall prompter elt))
            (cond ((stringp prompt)