diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-08-29 05:12:27 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-08-29 05:12:27 -0400 |
| commit | c397263b4b28430c12f70e0a755998fb5e493659 (patch) | |
| tree | 610ed396f8cde05aa1e308aa4b3bf6fed529667e /chess-ics.el | |
| parent | a89c8947fefb2ad71290789d0c152cc0af440c5c (diff) | |
Silently ignore refresh directives in the ICS protocol.
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/chess-ics.el b/chess-ics.el index 3921607..733793e 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -590,15 +590,15 @@ See `chess-ics-game'.") (chess-game-move game ply) (setq error nil)) (if (= index (chess-game-index game)) - (setq error 'refresh) ; Ignore a "refresh" command + (setq error nil) ; Ignore a "refresh" command (if (and (> index (1+ (chess-game-index game))) - (= 1 (chess-game-seq game))) - ;; we lack a complete game, try to get it via the movelist - (progn - (setq error nil) - (chess-ics-send - (format "moves %d" - (chess-game-data game 'ics-game-number)))) + (= 1 (chess-game-seq game))) + ;; we lack a complete game, try to get it via the movelist + (progn + (setq error nil) + (chess-ics-send + (format "moves %d" + (chess-game-data game 'ics-game-number)))) (setq error (format "comparing-index (%d:%d)" index (chess-game-index game)))))) ;; no preceeding ply supplied, so this is a starting position |