procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Andreas Schwab 2013-07-12 11:33:09 +02:00
parent f6774c1ada
commit 051f277502
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

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

5
lisp/emacs-lisp/map-ynp.el
View file

@ -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)