From f4639c9095c34caa60b4122e2cf4d6b1402508e3 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 09:40:07 +0000 Subject: *** no comment *** --- chess-game.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'chess-game.el') diff --git a/chess-game.el b/chess-game.el index 3214eb2..25d089d 100644 --- a/chess-game.el +++ b/chess-game.el @@ -166,8 +166,10 @@ matches." (defun chess-game-undo (game count) "Undo the last COUNT plies of GAME." (if (> count (chess-game-index game)) - (error "Cannot undo further") - (chess-game-set-plies game (nbutlast (chess-game-plies game) count)))) + (error "Cannot undo further")) + (let ((chess-game-inhibit-events t)) + (chess-game-set-plies game (nbutlast (chess-game-plies game) count))) + (chess-game-run-hooks game 'update)) (defsubst chess-game-over-p (game) -- cgit v1.2.3