diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-13 01:14:32 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-13 01:14:32 +0000 |
| commit | 3ab3e41f5023e699e56d9b5171264c5e62854540 (patch) | |
| tree | e9efa453c7b2422034f1ab4e85bf10ae221fa5a2 /chess-game.el | |
| parent | 1b173a311002cdd6fa0b0f0dee916815e513f1ed (diff) | |
*** no comment ***
Diffstat (limited to 'chess-game.el')
| -rw-r--r-- | chess-game.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)))) |