diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-06-14 23:41:56 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-06-14 23:41:56 +0000 |
| commit | 36f7cba0c4eb6535f170c7b8957e414dd3b91499 (patch) | |
| tree | 006e030a0254726259e80ad700c8088ce307b6b0 /chess-crafty.el | |
| parent | 5badda2b5c155f5afbd238c97d5ca93b075e2ac5 (diff) | |
various small bug fixes
Diffstat (limited to 'chess-crafty.el')
| -rw-r--r-- | chess-crafty.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chess-crafty.el b/chess-crafty.el index 509f749..a866cb4 100644 --- a/chess-crafty.el +++ b/chess-crafty.el @@ -50,7 +50,7 @@ (cond ((eq event 'initialize) (let ((proc (chess-common-handler game 'initialize "crafty"))) - (when (and (processp proc) + (when (and proc (processp proc) (eq (process-status proc) 'run)) (process-send-string proc (concat "display nogeneral\n" "display nochanges\n" @@ -64,7 +64,8 @@ "display novariation\n" "alarm off\n" "ansi off\n")) - (setq chess-engine-opponent-name "Crafty") + (setq chess-engine-process proc + chess-engine-opponent-name "Crafty") t))) ((eq event 'setup-pos) |