diff options
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. |