From a827a19a8981fad3e1c5b38d507f06278797ebb4 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 10 Apr 2002 21:33:06 +0000 Subject: *** no comment *** --- chess-display.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index dc5182e..515330d 100644 --- a/chess-display.el +++ b/chess-display.el @@ -244,13 +244,18 @@ modeline." (chess-game-set-plies chess-display-game (chess-game-plies game))))) -(defun chess-display-set-start-position (display position my-color) +(defun chess-display-set-start-position (display &optional position my-color) (chess-with-current-buffer display (let ((game (chess-display-game nil))) (if (null game) - (chess-display-set-position nil position) - (chess-game-set-data game 'my-color my-color) - (chess-game-set-start-position game position))))) + (chess-display-set-position nil (or position + chess-starting-position)) + (if position + (progn + (chess-game-set-start-position game position) + (chess-game-set-data game 'my-color my-color)) + (chess-game-set-start-position game chess-starting-position) + (chess-game-set-data game 'my-color t)))))) (defun chess-display-detach-game (display) "Set the display game. -- cgit v1.2.3