*** no comment ***

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))