diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-07 18:41:32 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-07 18:41:32 +0100 |
| commit | 3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4 (patch) | |
| tree | 20c99b5d2d64bad09d753745bd3b6da22a9ed06c /elisp/geiser-connection.el | |
| parent | e7aa01584d9b54e47855f2bcc434ab4c253126d5 (diff) | |
| download | geiser-chez-3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4.tar.gz geiser-chez-3e1ed908aa73875bda5842d6d9ce4c8b2d76bfb4.tar.bz2 | |
Interruptible connection waiting
Diffstat (limited to 'elisp/geiser-connection.el')
| -rw-r--r-- | elisp/geiser-connection.el | 2 |
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) |