summaryrefslogtreecommitdiff
path: root/chess-puzzle.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-04-24 18:26:08 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-04-24 18:26:08 +0000
commitf3ea1b87370d4408fc0b0582655ba26c9871adf4 (patch)
tree8f1932784cfe37797481f547eeace224b2831283 /chess-puzzle.el
parent9a6e8e67267a6d879e7a4c97cccc53fae4f286e6 (diff)
set the engine option so that crafty doesn't resign
Diffstat (limited to 'chess-puzzle.el')
-rw-r--r--chess-puzzle.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/chess-puzzle.el b/chess-puzzle.el
index e47dfe1..0491275 100644
--- a/chess-puzzle.el
+++ b/chess-puzzle.el
@@ -26,8 +26,11 @@ making it easy to go on to the next puzzle once you've solved one."
(interactive "fRead chess puzzles from: ")
(let* ((database (chess-database-open 'chess-file file))
(objects (and database (chess-session)))
+ (engine (car objects))
(display (cadr objects)))
(when database
+ (if engine
+ (chess-engine-set-option engine 'resign nil))
(with-current-buffer display
;; make sure the database is closed when the display is shutdown
(chess-game-add-hook (chess-display-game nil)