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." (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. |