mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

* 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
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> 2013-07-12 Eli Zaretskii <eliz@gnu.org>
* simple.el (next-line, previous-line): Document TRY-VSCROLL and ARG. * 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 (unwind-protect
(progn (progn
(if (stringp prompter) (if (stringp prompter)
(setq prompter (lambda (object) (setq prompter (let ((prompter prompter))
(format prompter object)))) (lambda (object)
(format prompter object)))))
(while (funcall next) (while (funcall next)
(setq prompt (funcall prompter elt)) (setq prompt (funcall prompter elt))
(cond ((stringp prompt) (cond ((stringp prompt)