From ade1d16b2d10f470a843d7704bec88b6ef28ca00 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 11 Apr 2002 01:30:54 +0000 Subject: more fixes to draw support --- chess-game.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index 3b55556..5ff1d9d 100644 --- a/chess-game.el +++ b/chess-game.el @@ -131,7 +131,7 @@ matches." (defsubst chess-game-set-plies (game plies) "Return the tags alist associated with GAME." (setcdr (nthcdr 2 game) (list plies)) - (chess-game-run-hooks game 'setup-game game)) + (chess-game-run-hooks game 'setup-game)) (defsubst chess-game-set-start-position (game position) "Return the tags alist associated with GAME." @@ -168,10 +168,10 @@ matches." (defun chess-game-undo (game count) "Undo the last COUNT plies of GAME." (if (> count (chess-game-index game)) - (error "Cannot undo %d plies from a game with only %d plies" - count (chess-game-index game)) + (error "Cannot undo further") (chess-game-set-plies game (nbutlast (chess-game-plies game) count)) - (chess-game-run-hooks game 'undo count))) + ;;(chess-game-run-hooks game 'undo count) + )) (defsubst chess-game-over-p (game) -- cgit v1.2.3