diff options
Diffstat (limited to 'chess-crafty.el')
| -rw-r--r-- | chess-crafty.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/chess-crafty.el b/chess-crafty.el index 9914d03..9c3924e 100644 --- a/chess-crafty.el +++ b/chess-crafty.el @@ -81,6 +81,17 @@ (insert (chess-game-to-string (car args)) ?\n)))) (chess-engine-send nil (format "read %s\n" file)))) + ((eq event 'set-option) + (cond + ((eq (car args) 'resign) + (if (cadr args) + (chess-engine-send nil "resign 9\n") + (chess-engine-send nil "resign -1\n"))) + ((eq (car args) 'ponder) + (if (cadr args) + (chess-engine-send nil "ponder on\n") + (chess-engine-send nil "ponder off\n"))))) + (t (if (and (eq event 'undo) (= 1 (mod (car args) 2))) |