diff options
Diffstat (limited to 'chess-common.el')
| -rw-r--r-- | chess-common.el | 6 |
1 files changed, 5 insertions, 1 deletions
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))) |