From a910c7f80418fd12058dce3d6c348a752fada032 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 29 Dec 2021 16:14:43 +0000 Subject: Fix: really use seconds to wait in geiser-wait-eval --- elisp/geiser-connection.el | 2 +- elisp/geiser-mode.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 19cbaee..b269727 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -261,7 +261,7 @@ (interrupt-process proc)))) (defun geiser-con--wait (req timeout) - "Wait for the given request REQ to finish, up to TIMEOUT secs, returning its result." + "Wait for the given request REQ to finish, up to TIMEOUT msecs, returning its result." (let* ((con (or (geiser-con--request-connection req) (error "Geiser connection not active"))) (proc (geiser-con--connection-process con)) diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index 0e61d90..b1df1b6 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -102,7 +102,7 @@ TIMEOUT is the number of seconds to wait for evaluation completion. Functions returning a waitable REQ are `geiser-eval-region' and its derivatives evaluating buffers or individual sexps." - (geiser-eval--wait req timeout)) + (geiser-eval--wait req (* 1000 timeout))) (defun geiser-eval-region (start end &optional and-go raw nomsg) "Eval the current region in the Geiser REPL. -- cgit v1.2.3