diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 10:59:33 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 10:59:33 +0000 |
| commit | c6d397dde9c2c5dd2d1be993ffe3117bc25e6fb8 (patch) | |
| tree | 83c1ea17fdce15588c96147c6df7495e3bd875b6 /chess-engine.el | |
| parent | de037adf033425192efefb66f098037766c6932e (diff) | |
*** no comment ***
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-engine.el b/chess-engine.el index afa80d8..86916a1 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -420,10 +420,10 @@ function in all cases; this is merely a bandwidth-saver." (defun chess-engine-event-handler (game engine event &rest args) "Handle any commands being sent to this instance of this module." (unless chess-engine-handling-event - (if (buffer-live-p engine) - (with-current-buffer engine - (assert (eq game (chess-engine-game nil))) - (apply chess-engine-event-handler event args))) + (chess-with-current-buffer engine + (assert (eq game (chess-engine-game nil))) + (apply chess-engine-event-handler event args)) + (cond ((eq event 'shutdown) (chess-engine-destroy engine)) |