mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 22:40:51 -08:00
Code Issues Projects Releases Wiki Activity

(while-no-input): Don't splice BODY directly into the `or' form.

Browse source
This commit is contained in:
Johan Bockgård 2008-03-08 16:00:20 +00:00
parent f2549aa023
commit 8db8d2a130
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-03-08 Johan Bockg$(Q)[(Brd <bojohan@gnu.org>
* subr.el (while-no-input): Don't splice BODY directly into the
`or' form.
2008-03-06 Kim F. Storm <storm@cua.dk>
* help.el (view-emacs-todo): Rename from view-todo. Change users.

2
lisp/subr.el
View file

@ -2478,7 +2478,7 @@ If BODY finishes, `while-no-input' returns whatever value BODY produced."
(catch ',catch-sym
(let ((throw-on-input ',catch-sym))
(or (input-pending-p)
,@body))))))
(progn ,@body)))))))
(defmacro combine-after-change-calls (&rest body)
"Execute BODY, but don't call the after-change functions till the end.