From 4c79e4f37969528483b3558a231977a1be2d4f51 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 23:11:42 +0000 Subject: *** no comment *** --- chess-engine.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index 219bf34..909b7b7 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -134,8 +134,13 @@ (set-process-buffer proc (current-buffer)) (set-process-filter proc 'chess-engine-filter)) (setq chess-engine-current-marker (point-marker))) + (add-hook 'kill-buffer-hook 'chess-engine-on-kill nil t) (current-buffer)))) +(defun chess-engine-on-kill () + "Function called when the buffer is killed." + (chess-engine-detach-game nil)) + (defun chess-engine-destroy (engine) (let ((buf (or engine (current-buffer)))) (if (buffer-live-p buf) -- cgit v1.2.3