diff options
| -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. |