From cdcddcb50f516cae6dbe2cd8f484cd16f59dd0bd Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 23:18:35 +0000 Subject: *** no comment *** --- chess-engine.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index 909b7b7..07d7bd6 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -143,8 +143,9 @@ (defun chess-engine-destroy (engine) (let ((buf (or engine (current-buffer)))) - (if (buffer-live-p buf) - (kill-buffer buf)))) + (when (buffer-live-p buf) + (chess-engine-command engine 'destroy) + (kill-buffer buf)))) (defun chess-engine-command (engine event &rest args) (chess-with-current-buffer engine -- cgit v1.2.3