diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2013-07-12 11:33:09 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2013-07-12 11:33:09 +0200 |
| commit | 051f277502f52899f05b4472edcfd38a68546d83 (patch) | |
| tree | cccd2fcd5dcb3ae508f95b9c48b9c61146494d46 /lisp/emacs-lisp | |
| parent | f6774c1ada3b80488f3aa7f0082df6ed8c114dcc (diff) | |
| download | emacs-051f277502f52899f05b4472edcfd38a68546d83.tar.gz emacs-051f277502f52899f05b4472edcfd38a68546d83.tar.bz2 emacs-051f277502f52899f05b4472edcfd38a68546d83.zip | |
* emacs-lisp/map-ynp.el (map-y-or-n-p): Fix last change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |