From 3ab3e41f5023e699e56d9b5171264c5e62854540 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 01:14:32 +0000 Subject: *** no comment *** --- chess-common.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'chess-common.el') diff --git a/chess-common.el b/chess-common.el index 7019bb9..7161e73 100644 --- a/chess-common.el +++ b/chess-common.el @@ -13,11 +13,11 @@ (make-variable-buffer-local 'chess-common-temp-files) (defmacro chess-with-temp-file (&rest body) - (let ((file (make-temp-file "chess"))) - (with-temp-file file - ,@body) - (push file chess-common-temp-files) - file)) + `(let ((file (make-temp-file "chess"))) + (with-temp-file file + ,@body) + (push file chess-common-temp-files) + file)) (put 'chess-with-temp-file 'lisp-indent-function 1) @@ -65,6 +65,8 @@ (when (chess-engine-game nil) (dotimes (i (car args)) (chess-engine-send nil "undo\n")) + (if (= 1 (mod (car args) 2)) + (chess-engine-send nil "go\n")) (chess-game-undo (chess-engine-game nil) (car args)))) ((eq event 'move) -- cgit v1.2.3