From 6f87d139a4e19a318de49905bbb1176ee1de33a8 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 24 Apr 2002 19:28:46 +0000 Subject: *** no comment *** --- chess-common.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'chess-common.el') diff --git a/chess-common.el b/chess-common.el index c6ed7d8..faef364 100644 --- a/chess-common.el +++ b/chess-common.el @@ -48,7 +48,11 @@ (chess-game-set-data game 'active t)) ((eq event 'destroy) - (chess-engine-send nil "quit\n") + (let ((proc (get-buffer-process (current-buffer)))) + (if (and (processp proc) + (memq (process-status proc) '(run open))) + (chess-engine-send nil "quit\n"))) + (dolist (file chess-common-temp-files) (if (file-exists-p file) (delete-file file))) -- cgit v1.2.3