diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-09-17 05:50:07 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-09-17 05:50:07 -0400 |
| commit | 387d6dd0a254785ed3f50b8664b35f17f6b873ce (patch) | |
| tree | f4f7a55c0a2d7b6808e19e18da2130c287e479f2 /chess-scid.el | |
| parent | 33d57dc0f667c8d1168b46f9e73d9510d8c7e518 (diff) | |
Add more delays in case text has not appeared from the command.
Fixes: AF51A38C-36B6-4976-954D-0BCD6C1A81FD
Diffstat (limited to 'chess-scid.el')
| -rw-r--r-- | chess-scid.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/chess-scid.el b/chess-scid.el index 1881c2a..ae491d0 100644 --- a/chess-scid.el +++ b/chess-scid.el @@ -18,9 +18,14 @@ (process-send-string chess-scid-process (concat string "\n"))) (defun chess-scid-get-result (command) - (let ((here (point-max))) + (let ((here (point-max)) (iterations 10)) (chess-scid-send command) (accept-process-output chess-scid-process) + (while (and (> (setq iterations (1- iterations)) 0) + (eobp)) + (accept-process-output chess-scid-process 1 0 t)) + (if (eobp) + (error "chess-scid: '%s' failed to produce any output")) (goto-char (point-max)) (skip-chars-backward " \t\n\r%") (prog1 |