From: Andreas Schwab <schwab@linux-m68k.org>
Date: Fri, 12 Jul 2013 09:33:09 +0000 (+0200)
Subject: * emacs-lisp/map-ynp.el (map-y-or-n-p): Fix last change.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1823
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=051f277502f52899f05b4472edcfd38a68546d83;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99e9150cd7b..da2bda0b17b 100644
--- 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 1919d47687b..56bfe04f9ce 100644
--- 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)