*** no comment ***

diff --git a/TODO b/TODO
index 897fef24d19ec84230558fdbd659678eb47d6ebe..05f555a8b61f4637c60896d0d5fffbe24cb9c03f 100644 (file)
--- 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 908d42a1e1ebfe80e5fb2bba6bf38003cff02ab6..9cc89332a26aa5ffaa4cb8df1b9d507a33f0a9fa 100644 (file)
--- 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))