diff options
| -rw-r--r-- | chess-ics.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/chess-ics.el b/chess-ics.el index 2154902..56959d5 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -1182,6 +1182,23 @@ This function should be put on `comint-preoutput-filter-functions'." ((eq event 'forward) (chess-ics-send "forward" (chess-game-data game 'ics-buffer))) + + ((eq event 'undo) + (chess-ics-send (format "takeback %d" (car args)) + (chess-game-data game 'ics-buffer))) + + ((eq event 'abort) + (chess-ics-send "abort" (chess-game-data game 'ics-buffer))) + + ((eq event 'call-flag) + (chess-ics-send "flag" (chess-game-data game 'ics-buffer))) + + ((eq event 'draw) + (chess-ics-send "draw" (chess-game-data game 'ics-buffer))) + + ((eq event 'resign) + (chess-ics-send "resign" (chess-game-data game 'ics-buffer))) + (t (apply 'chess-network-handler game event args))))) |