*** no comment ***

diff --git a/chess-engine.el b/chess-engine.el
index 45d909e3510437f6f9c4aa8ea14e4ad174785d9a..f50038df4c016c33fdf2bff90aacf643e8b2f482 100644 (file)
--- 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 8d35afa04e0cbed106701bebbf434a80565273da..020fa447124a0452f8805239ae7f56203d2aef5b 100644 (file)
--- 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 ()