From c397263b4b28430c12f70e0a755998fb5e493659 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 29 Aug 2008 05:12:27 -0400 Subject: Silently ignore refresh directives in the ICS protocol. --- chess-ics.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'chess-ics.el') 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 -- cgit v1.2.3