diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-13 09:40:07 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-13 09:40:07 +0000 |
| commit | f4639c9095c34caa60b4122e2cf4d6b1402508e3 (patch) | |
| tree | 782e3cc6fb10e1fdbc8ab41065f70445615ea0da /chess-common.el | |
| parent | fba3a7b20a520eb83726944082ef7c86362f2bf6 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-common.el')
| -rw-r--r-- | chess-common.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)) |