From 4e0af8d85ed9c1c8feb025abafe2dba87604ccb5 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 19 Apr 2002 07:53:38 +0000 Subject: Fixes and other work. --- chess-engine.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index 050b29d..826b9e2 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -254,7 +254,15 @@ t)) ((eq event 'illegal) - (chess-message 'opp-illegal))))) + (chess-message 'opp-illegal)) + + ((eq event 'kibitz) + (let ((chess-engine-handling-event t)) + (chess-game-run-hooks game 'kibitz (car args)))) + + ((eq event 'chat) + (let ((chess-engine-handling-event t)) + (chess-game-run-hooks game 'chat (car args))))))) (defun chess-engine-create (module game &optional response-handler &rest handler-ctor-args) -- cgit v1.2.3