[nongnu] elpa/geiser a910c7f804 1/2: Fix: really use seconds to wait in geiser-wait-eval

[ELPA Syncer]

branch: elpa/geiser
commit a910c7f80418fd12058dce3d6c348a752fada032
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    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 19cbaeea29..b269727d6b 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 0e61d90e75..b1df1b6ada 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.