From 3169a8123361adb22387572b0c4647ce32c1917c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 22:23:13 +0000 Subject: *** no comment *** --- chess-engine.el | 2 +- chess-ics.el | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/chess-engine.el b/chess-engine.el index 45d909e..f50038d 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -218,7 +218,7 @@ ((eq chess-engine-pending-offer 'undo) (chess-message 'opp-undo-acc chess-engine-pending-arg) - (chess-game-undo game (car args))) + (chess-game-undo game chess-engine-pending-arg)) ((eq chess-engine-pending-offer 'my-undo) (chess-game-undo game (car args)))))) (setq chess-engine-pending-offer nil diff --git a/chess-ics.el b/chess-ics.el index 8d35afa..020fa44 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -83,11 +83,6 @@ The format of each entry is: (function (lambda () (funcall chess-engine-response-handler 'accept)))) - (cons "You accept the takeback request from \\S-+\\." - (function - (lambda () - (let ((chess-engine-pending-offer 'my-undo)) - (funcall chess-engine-response-handler 'accept))))) (cons "\\(\\S-+\\) resigns}" (function (lambda () -- cgit v1.2.3