From ee6f32e0f33a42f09aca27d00d57c22f35192c76 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 11:09:04 +0000 Subject: *** no comment *** --- TODO | 2 ++ chess-ics.el | 10 ++++------ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/TODO b/TODO index 897fef2..05f555a 100644 --- a/TODO +++ b/TODO @@ -18,6 +18,8 @@ - the game should go inactive once I lose by stalemate/checkmate +- when announcing abiguous pieces, name the rank/file ("e pawn") + ---------------------------------------------------------------------- - Read-only mode needs to be a bit more vigorous. There's nothing diff --git a/chess-ics.el b/chess-ics.el index 908d42a..9cc8933 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -135,12 +135,10 @@ who is black." (if (and (cadr info) (eq (chess-pos-side-to-move (car info)) (chess-game-data game 'my-color))) - (let ((last-ply (last (chess-game-plies game)))) - (setcar last-ply - (chess-algebraic-to-ply (chess-ply-pos (car last-ply)) - (cadr info) t)) - (chess-game-add-ply game (chess-ply-create (car info))) - (chess-game-run-hooks game 'update))) + (chess-engine-do-move + (chess-algebraic-to-ply + (chess-ply-pos (car (last (chess-game-plies game)))) + (cadr info) t))) (let ((chess-game-inhibit-events t) plies) (chess-game-set-data game 'my-color (string= (nth 2 info) chess-ics-handle)) -- cgit v1.2.3