From e0688718b619954474cd65b4dfaa1cae0ebd8edb Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Thu, 11 Apr 2002 00:01:26 +0000
Subject: added a sentinel

---
 chess-engine.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/chess-engine.el b/chess-engine.el
index 189ad15..b5067e8 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -361,6 +361,11 @@ function in all cases; this is merely a bandwidth-saver."
      ((eq event 'destroy)
       (chess-engine-detach-game engine)))))
 
+(defun chess-engine-sentinal (proc event)
+  (when (buffer-live-p (process-buffer proc))
+    (set-buffer (process-buffer proc))
+    (chess-engine-destroy nil)))
+
 (defun chess-engine-filter (proc string)
   "Filter for receiving text for an engine from an outside source."
   (let ((buf (if (processp proc)
-- 
cgit v1.2.3