ttn pushed a commit to branch ttn-gnugo
in repository elpa.
commit 29c90bce0cb250797fd953c2ae7451879a5512ad
Author: Thien-Thi Nguyen <t...@gnu.org>
Date: Thu Jan 30 17:09:09 2014 +0100
[gnugo] Wait at most 30sec for subproc output chunk.
* packages/gnugo/gnugo.el (gnugo-synchronous-send/return):
Specify TIMEOUT of 30 seconds to ‘accept-process-output’.
---
packages/gnugo/ChangeLog | 7 +++++++
packages/gnugo/gnugo.el | 2 +-
2 files changed, 8 insertions(+), 1 deletions(-)
diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
index 0c06fcd..09a339d 100644
--- a/packages/gnugo/ChangeLog
+++ b/packages/gnugo/ChangeLog
@@ -1,5 +1,12 @@
2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
+ [gnugo] Wait at most 30sec for subproc output chunk.
+
+ * gnugo.el (gnugo-synchronous-send/return):
+ Specify TIMEOUT of 30 seconds to ‘accept-process-output’.
+
+2014-01-30 Thien-Thi Nguyen <t...@gnu.org>
+
[gnugo int] Use ‘zerop’.
* gnugo.el (gnugo-cleanup)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index cb92f46..3a38a80 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -381,7 +381,7 @@ STRING omits the two trailing newlines. See also
`gnugo-query'."
(let (rv)
;; type change => break
(while (stringp (setq rv (gnugo-get :sync-return)))
- (accept-process-output proc))
+ (accept-process-output proc 30))
(gnugo-put :sync-return "")
rv)))
