summaryrefslogtreecommitdiff
path: root/chess-display.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-display.el')
-rw-r--r--chess-display.el5
1 files changed, 3 insertions, 2 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))))