From 051f277502f52899f05b4472edcfd38a68546d83 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 12 Jul 2013 11:33:09 +0200 Subject: [PATCH] * emacs-lisp/map-ynp.el (map-y-or-n-p): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/map-ynp.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 99e9150cd7..da2bda0b17 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-07-12 Andreas Schwab + + * emacs-lisp/map-ynp.el (map-y-or-n-p): Fix last change. + 2013-07-12 Eli Zaretskii * 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 1919d47687..56bfe04f9c 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) -- 2.20.1