diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 23:08:08 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 23:08:08 +0000 |
| commit | cd53b65c1dae595bf07e6b6cf211a94e945f1f58 (patch) | |
| tree | 41f93cc150e983fcbf4922e7be7bf40b7119e37b /chess-engine.el | |
| parent | 6f1dce941bfca03ba45c39d64064e93a8e2397ed (diff) | |
*** no comment ***
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chess-engine.el b/chess-engine.el index b097fe3..f90c504 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -120,7 +120,9 @@ (format "Do you wish to play a chess game against an anonymous opponent? "))) (progn (let ((chess-engine-handling-event t)) - (chess-game-set-data game 'active t)) + (unless game + (setq game (chess-engine-set-game nil (chess-game-create)))) + (chess-engine-set-start-position nil)) (chess-engine-command nil 'accept)) (chess-engine-command nil 'decline))) t) |