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 | 688762b5310211f8522979d61332aa54dea2b7d6 (patch) | |
| tree | 871796b20f702bf74be3302a25e37b264050933a | |
| parent | a1974c8ce4b38e472b961b6a256c4da67f6dcfaf (diff) | |
| download | geiser-688762b5310211f8522979d61332aa54dea2b7d6.tar.gz geiser-688762b5310211f8522979d61332aa54dea2b7d6.tar.bz2 | |
Interruptible connection waiting
| -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) |