From c6d397dde9c2c5dd2d1be993ffe3117bc25e6fb8 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 10:59:33 +0000 Subject: *** no comment *** --- chess-engine.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'chess-engine.el') 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)) -- cgit v1.2.3