diff options
| author | jao <jao@gnu.org> | 2021-12-29 16:14:43 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-12-29 16:14:43 +0000 |
| commit | a910c7f80418fd12058dce3d6c348a752fada032 (patch) | |
| tree | 601f85830c161245f6ccaa7f655a1b14c7fdd1f8 | |
| parent | e5357e6dcd221ba734423c68dc7a823c034d49d2 (diff) | |
| download | geiser-a910c7f80418fd12058dce3d6c348a752fada032.tar.gz geiser-a910c7f80418fd12058dce3d6c348a752fada032.tar.bz2 | |
Fix: really use seconds to wait in geiser-wait-eval
| -rw-r--r-- | elisp/geiser-connection.el | 2 | ||||
| -rw-r--r-- | 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. |