summaryrefslogtreecommitdiff
path: root/chess-engine.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-engine.el')
-rw-r--r--chess-engine.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/chess-engine.el b/chess-engine.el
index be48270..ed80570 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -266,7 +266,8 @@
(with-current-buffer (generate-new-buffer " *chess-engine*")
(setq buffer (current-buffer))
(let ((proc (apply handler 'initialize handler-ctor-args)))
- (when proc ;must be a process or t
+ (if (null proc) ; must be a process or t
+ (kill-buffer buffer)
(add-hook 'kill-buffer-hook 'chess-engine-on-kill nil t)
(setq chess-engine-regexp-alist (symbol-value regexp-alist)
chess-engine-event-handler handler