summaryrefslogtreecommitdiff
path: root/chess-ics.el
diff options
context:
space:
mode:
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 ()