From 3ab3e41f5023e699e56d9b5171264c5e62854540 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 01:14:32 +0000 Subject: *** no comment *** --- chess-game.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index 138fc36..cae650f 100644 --- a/chess-game.el +++ b/chess-game.el @@ -213,14 +213,14 @@ progress (nil), if it is drawn, resigned, mate, etc." (chess-game-add-ply game (chess-ply-create (chess-ply-next-pos current-ply))) (cond - ((chess-ply-has-keyword ply :draw :perpetual :repetition :stalemate) + ((chess-ply-any-keyword ply :draw :perpetual :repetition :stalemate) (chess-game-set-tag game "Result" "1/2-1/2") (chess-game-run-hooks game 'game-drawn)) - ((chess-ply-has-keyword ply :resign :checkmate) + ((chess-ply-any-keyword ply :resign :checkmate) (let ((color (chess-game-side-to-move game))) (chess-game-set-tag game "Result" (if color "0-1" "1-0")) - (if (chess-ply-has-keyword ply :resign) + (if (chess-ply-keyword ply :resign) (chess-game-run-hooks game 'resign color) (chess-game-run-hooks game 'move current-ply)))) -- cgit v1.2.3