diff options
| -rw-r--r-- | chess-engine.el | 2 | ||||
| -rw-r--r-- | chess-ics.el | 5 |
2 files changed, 1 insertions, 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 () |