diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-05-16 17:28:18 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-05-16 17:28:18 +0000 |
| commit | 59d1008283f339d6c6d146979c4cff0c6430b095 (patch) | |
| tree | 530b969e5568e51caf57dc230a544e141c26bec1 /chess-game.el | |
| parent | 86493efa7a72ecda178e0ec5e7123c9761a61046 (diff) | |
miscellaneous fixes
Diffstat (limited to 'chess-game.el')
| -rw-r--r-- | chess-game.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-game.el b/chess-game.el index 4a82b04..231cc03 100644 --- a/chess-game.el +++ b/chess-game.el @@ -316,8 +316,10 @@ progress (nil), if it is drawn, resigned, mate, etc." :stalemate)) (chess-game-set-tag game "Result" "1/2-1/2")))) - (chess-game-run-hooks game 'move current-ply) - (chess-game-run-hooks game 'post-move))) + (if (chess-ply-keyword ply :resign) + (chess-game-run-hooks game 'resign) + (chess-game-run-hooks game 'move current-ply) + (chess-game-run-hooks game 'post-move)))) (defsubst chess-game-end (game keyword) "End the current game, by resignation, draw, etc." |