From e4175e7b2c012fbefdabad1ee4e96ff8cc25df4e Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 29 Dec 2021 16:16:21 +0000 Subject: New function geiser-eval-region/wait --- elisp/geiser-mode.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-mode.el') diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index b1df1b6..9ea4d60 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -110,7 +110,9 @@ individual sexps." With prefix, goes to the REPL buffer afterwards (as `geiser-eval-region-and-go'). The evaluation is performed asynchronously: this function's return value can be used to wait -for its completion using `geiser-eval-wait'." +for its completion using `geiser-eval-wait'. See also +`geiser-eval-region/wait' if you just need to eval a region +programmatically in a synchronous way." (interactive "rP") (save-restriction (narrow-to-region start end) @@ -122,6 +124,12 @@ for its completion using `geiser-eval-wait'." (not raw) nomsg)) +(defun geiser-eval-region/wait (start end &optional timeout) + "Like `geiser-eval-region', but waiting for the evaluation to finish. +Returns its raw result, rather than displaying it. TIMEOUT is the +number of seconds to wait for the evaluation to finish." + (geiser-debug--send-region/wait nil start end (* 1000 (or timeout 10)))) + (defun geiser-eval-region-and-go (start end) "Eval the current region in the Geiser REPL and visit it afterwads." (interactive "r") -- cgit v1.2.3