diff options
| author | Johan Bockgård | 2008-03-08 16:00:20 +0000 |
|---|---|---|
| committer | Johan Bockgård | 2008-03-08 16:00:20 +0000 |
| commit | 8db8d2a130caa52fac45fbc27e9037a0c28fa3ad (patch) | |
| tree | fba9b3b5567a0633f40233aec87e94e85bb081fc /lisp/subr.el | |
| parent | f2549aa0236872e4f0efd29eebc49ccce29f5408 (diff) | |
| download | emacs-8db8d2a130caa52fac45fbc27e9037a0c28fa3ad.tar.gz emacs-8db8d2a130caa52fac45fbc27e9037a0c28fa3ad.zip | |
(while-no-input): Don't splice BODY directly into the `or' form.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 329c4ca2c24..2f9cdd769e0 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -2478,7 +2478,7 @@ If BODY finishes, `while-no-input' returns whatever value BODY produced." | |||
| 2478 | (catch ',catch-sym | 2478 | (catch ',catch-sym |
| 2479 | (let ((throw-on-input ',catch-sym)) | 2479 | (let ((throw-on-input ',catch-sym)) |
| 2480 | (or (input-pending-p) | 2480 | (or (input-pending-p) |
| 2481 | ,@body)))))) | 2481 | (progn ,@body))))))) |
| 2482 | 2482 | ||
| 2483 | (defmacro combine-after-change-calls (&rest body) | 2483 | (defmacro combine-after-change-calls (&rest body) |
| 2484 | "Execute BODY, but don't call the after-change functions till the end. | 2484 | "Execute BODY, but don't call the after-change functions till the end. |