summaryrefslogtreecommitdiff
path: root/elisp/geiser-connection.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 18:41:32 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 18:41:32 +0100
commit688762b5310211f8522979d61332aa54dea2b7d6 (patch)
tree871796b20f702bf74be3302a25e37b264050933a /elisp/geiser-connection.el
parenta1974c8ce4b38e472b961b6a256c4da67f6dcfaf (diff)
downloadgeiser-688762b5310211f8522979d61332aa54dea2b7d6.tar.gz
geiser-688762b5310211f8522979d61332aa54dea2b7d6.tar.bz2
Interruptible connection waiting
Diffstat (limited to 'elisp/geiser-connection.el')
-rw-r--r--elisp/geiser-connection.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index 066d1a3..c45a37a 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -294,7 +294,7 @@
(while (and (> time 0)
(geiser-con--connection-process con)
(not (geiser-con--connection-completed-p con id)))
- (unless (accept-process-output nil waitsecs)
+ (unless (sit-for waitsecs)
(setq time (- time step))))
(error (setq time 0)))
(or (> time 0)