summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-12-29 16:14:43 +0000
committerjao <jao@gnu.org>2021-12-29 16:14:43 +0000
commita910c7f80418fd12058dce3d6c348a752fada032 (patch)
tree601f85830c161245f6ccaa7f655a1b14c7fdd1f8 /elisp
parente5357e6dcd221ba734423c68dc7a823c034d49d2 (diff)
downloadgeiser-a910c7f80418fd12058dce3d6c348a752fada032.tar.gz
geiser-a910c7f80418fd12058dce3d6c348a752fada032.tar.bz2
Fix: really use seconds to wait in geiser-wait-eval
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-connection.el2
-rw-r--r--elisp/geiser-mode.el2
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.