summaryrefslogtreecommitdiff
path: root/chess-ics.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-05-01 22:19:10 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-05-01 22:19:10 +0000
commit22b47d6e2731685cf0f2618499fa772c26328482 (patch)
treeec4170423c92b28cbd0e922a75b353345123a856 /chess-ics.el
parentc649d124baa42c1207d94ae5f6ed5e4f33b7c3f2 (diff)
*** no comment ***
Diffstat (limited to 'chess-ics.el')
-rw-r--r--chess-ics.el5
1 files changed, 5 insertions, 0 deletions
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 ()