diff options
| -rw-r--r-- | chess-display.el | 5 | ||||
| -rw-r--r-- | chess-game.el | 3 |
2 files changed, 4 insertions, 4 deletions
diff --git a/chess-display.el b/chess-display.el index 6bf03df..6f832da 100644 --- a/chess-display.el +++ b/chess-display.el @@ -376,9 +376,10 @@ If only START is given, it must be in algebraic move notation." (chess-error 'game-is-over))) (if (= chess-display-index (chess-game-index chess-module-game)) (let ((chess-display-handling-event t)) - (chess-display-paint-move nil ply) (chess-game-move chess-module-game ply) - (chess-display-set-index* nil (chess-game-index chess-module-game))) + (chess-display-paint-move nil ply) + (chess-display-set-index* nil (chess-game-index chess-module-game)) + (chess-game-run-hooks chess-module-game 'post-move)) ;; jww (2002-03-28): This should beget a variation within the ;; game, or alter the game, just as SCID allows (chess-error 'cannot-yet-add)))) diff --git a/chess-game.el b/chess-game.el index bd34e29..910a244 100644 --- a/chess-game.el +++ b/chess-game.el @@ -320,8 +320,7 @@ progress (nil), if it is drawn, resigned, mate, etc." (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)))) + (chess-game-run-hooks game 'move current-ply)))) (defsubst chess-game-end (game keyword) "End GAME, by resignation, draw, etc." |