diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 23:18:35 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 23:18:35 +0000 |
| commit | cdcddcb50f516cae6dbe2cd8f484cd16f59dd0bd (patch) | |
| tree | 968340145eac33c294ec6679c225d29f100cab6a | |
| parent | 4c79e4f37969528483b3558a231977a1be2d4f51 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-display.el | 1 | ||||
| -rw-r--r-- | chess-engine.el | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/chess-display.el b/chess-display.el index f45429e..ed94ae5 100644 --- a/chess-display.el +++ b/chess-display.el @@ -98,6 +98,7 @@ "Destroy a chess display object, killing all of its buffers." (let ((buf (or display (current-buffer)))) (when (buffer-live-p buf) + (funcall chess-display-event-handler 'destroy) (chess-display-detach-game display) (kill-buffer buf)))) 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 |