From 4a5de0c46970e59b1cb890cdb6cdfdcae47b34a8 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 9 Apr 2002 09:55:46 +0000
Subject: *** no comment ***

---
 chess.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'chess.el')

diff --git a/chess.el b/chess.el
index 3fb0a6f..76f26be 100644
--- a/chess.el
+++ b/chess.el
@@ -111,9 +111,13 @@ minibuffer, which works well for Emacspeak users."
   (interactive "P")
   (let ((game (chess-game-create))	; start out as white always
 	display engine)
+	 (game (chess-game-create)))
+    (chess-game-set-data game 'my-color t)
+
     (require chess-default-display)
     (chess-display-set-game
      (chess-display-create chess-default-display t) game)
+    (chess-display-set-main display)
     (let ((engine-module
 	   (if arg
 	       (intern (or (read-string "Engine module to play against: ")
-- 
cgit v1.2.3