From c2b53d7bd469c048527051fc04c1924bb0cb7c89 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 13 Dec 2004 19:26:42 +0000 Subject: [PATCH] (while-no-input): New macro. --- lisp/subr.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index 3bdef5988ce..84129908fc7 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1862,6 +1862,19 @@ is allowed once again." ,@body) (quit (setq quit-flag t) nil))) +(defmacro while-no-input (&rest body) + "Execute BODY only as long as there's no pending input. +If input arrives, that ends the execution of BODY, +and `while-no-input' returns nil. If BODY finishes, +`while-no-input' returns whatever value BODY produced." + (declare (debug t) (indent 0)) + (let ((catch-sym (make-symbol "input"))) + `(with-local-quit + (catch ',catch-sym + (let ((throw-on-input ',catch-sym)) + (when (sit-for 0 0 t) + ,@body)))))) + (defmacro combine-after-change-calls (&rest body) "Execute BODY, but don't call the after-change functions till the end. If BODY makes changes in the buffer, they are recorded -- 2.39.2