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

lisp/ChangeLog

+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.

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)