From 22b47d6e2731685cf0f2618499fa772c26328482 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 22:19:10 +0000 Subject: *** no comment *** --- chess-game.el | 1 + chess-ics.el | 5 +++++ 2 files changed, 6 insertions(+) diff --git a/chess-game.el b/chess-game.el index f8e1101..4a82b04 100644 --- a/chess-game.el +++ b/chess-game.el @@ -228,6 +228,7 @@ This conveys the status of the game at the given index." "Undo the last COUNT plies of GAME." (assert game) (assert (integerp count)) + (assert (> count 0)) (if (> count (chess-game-index game)) (chess-error 'undo-limit-reached)) (let ((chess-game-inhibit-events t)) diff --git a/chess-ics.el b/chess-ics.el index 3889842..8d35afa 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -74,6 +74,11 @@ The format of each entry is: (funcall chess-engine-response-handler 'accept))))) (cons "<12> \\(.+\\)" 'chess-ics-handle-move) + (cons "\\S-+ would like to take back \\([0-9]+\\) half move(s)." + (function + (lambda () + (funcall chess-engine-response-handler 'undo + (string-to-int (match-string 1)))))) (cons "\\S-+ accepts the takeback request\\." (function (lambda () -- cgit v1.2.3