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-common.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'chess-common.el') diff --git a/chess-common.el b/chess-common.el index 9e05c96..66a4b99 100644 --- a/chess-common.el +++ b/chess-common.el @@ -64,7 +64,10 @@ (chess-engine-send nil "undo\n")) (if (= 1 (mod (car args) 2)) (chess-engine-send nil "go\n")) - (chess-game-undo chess-engine-game (car args))) + + ;; prevent use from handling the `undo' event which this triggers + (let ((chess-engine-handling-event t)) + (chess-game-undo chess-engine-game (car args)))) ((eq event 'move) (chess-engine-send nil (concat (chess-ply-to-algebraic (car args)) -- cgit v1.2.3