diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-11 00:01:26 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-11 00:01:26 +0000 |
| commit | e0688718b619954474cd65b4dfaa1cae0ebd8edb (patch) | |
| tree | df5d6818f5d603f7c43aa67a88b3f37c9f2f96ce /chess-engine.el | |
| parent | a0769011c2a98841156559aa37978156766cc09f (diff) | |
added a sentinel
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 5 |
1 files changed, 5 insertions, 0 deletions
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) |