diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-05-01 22:19:10 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-05-01 22:19:10 +0000 |
| commit | 22b47d6e2731685cf0f2618499fa772c26328482 (patch) | |
| tree | ec4170423c92b28cbd0e922a75b353345123a856 | |
| parent | c649d124baa42c1207d94ae5f6ed5e4f33b7c3f2 (diff) | |
*** no comment ***
| -rw-r--r-- | chess-game.el | 1 | ||||
| -rw-r--r-- | chess-ics.el | 5 |
2 files changed, 6 insertions, 0 deletions
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 () |