summaryrefslogtreecommitdiff
path: root/chess-network.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-network.el')
-rw-r--r--chess-network.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/chess-network.el b/chess-network.el
index 05df3dc..2cec4ec 100644
--- a/chess-network.el
+++ b/chess-network.el
@@ -151,6 +151,8 @@
(chess-engine-send nil "illegal\n"))
((eq event 'move)
+ (if (= 1 (chess-game-index game))
+ (chess-game-set-tag game "Black" chess-engine-opponent-name))
(chess-engine-send nil (concat (chess-ply-to-algebraic (car args)) "\n"))
(if (chess-game-over-p game)
(chess-game-set-data game 'active nil))))))