From 80ab4cec14452a641e741d372037dafda16ee871 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 28 Apr 2002 16:09:14 +0000 Subject: *** no comment *** --- chess-network.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'chess-network.el') diff --git a/chess-network.el b/chess-network.el index ed1c512..7d22c49 100644 --- a/chess-network.el +++ b/chess-network.el @@ -70,7 +70,7 @@ (function (lambda () (funcall chess-engine-response-handler 'illegal)))) - (cons "call flag$" + (cons "flag$" (function (lambda () (funcall chess-engine-response-handler 'call-flag)))) @@ -147,10 +147,6 @@ (setq chess-engine-pending-offer 'match) (chess-engine-send nil (format "chess match %s\n" chess-full-name))) - ((eq event 'resign) - (chess-engine-send nil "resign\n") - (chess-game-set-data game 'active nil)) - ((eq event 'draw) (if chess-engine-pending-offer (chess-engine-command nil 'retract)) @@ -183,7 +179,7 @@ (chess-engine-send nil "illegal\n")) ((eq event 'call-flag) - (chess-engine-send nil "call flag\n")) + (chess-engine-send nil "flag\n")) ((eq event 'kibitz) (chess-engine-send nil (format "kibitz %s\n" -- cgit v1.2.3