diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:28:46 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-24 19:28:46 +0000 |
| commit | 6f87d139a4e19a318de49905bbb1176ee1de33a8 (patch) | |
| tree | 584f6fc92b52efabe19ceefe6409d362d1549dfb /chess-common.el | |
| parent | b5ac31247f552baa44773734bc02575f0c4703de (diff) | |
*** no comment ***
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))) |