diff options
Diffstat (limited to 'chess-network.el')
| -rw-r--r-- | chess-network.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/chess-network.el b/chess-network.el index f4a369b..e78eabc 100644 --- a/chess-network.el +++ b/chess-network.el @@ -74,6 +74,10 @@ (function (lambda () (funcall chess-engine-response-handler 'call-flag)))) + (cons "forfeit$" + (function + (lambda () + (funcall chess-engine-response-handler 'flag-fell)))) (cons "kibitz\\s-+\\(.+\\)$" (function (lambda () @@ -195,6 +199,10 @@ ((eq event 'set-index) (chess-engine-send nil (format "index %d\n" (car args)))) + ((eq event 'flag-fell) + (chess-engine-send nil "forfeit\n") + (chess-common-handler game 'flag-fell)) + (t (apply 'chess-common-handler game event args))))) |