summaryrefslogtreecommitdiff
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
commit3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4 (patch)
tree20c99b5d2d64bad09d753745bd3b6da22a9ed06c
parente7aa01584d9b54e47855f2bcc434ab4c253126d5 (diff)
downloadgeiser-chez-3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4.tar.gz
geiser-chez-3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4.tar.bz2
Interruptible connection waiting
-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)