From 3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 7 Nov 2010 18:41:32 +0100
Subject: [PATCH] Interruptible connection waiting

---
 elisp/geiser-connection.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.11.4.GIT