diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-30 19:32:39 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-30 19:32:39 +0000 |
| commit | d4993c54eb9b6ab904db8ed43189ac0b561092aa (patch) | |
| tree | f01a18bc5e25f86335a55fd5b8c6b22c197ac913 /chess-common.el | |
| parent | f8cec448f1d65c0576734e26bb239979409835a9 (diff) | |
bug fixes
Diffstat (limited to 'chess-common.el')
| -rw-r--r-- | chess-common.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/chess-common.el b/chess-common.el index 2c590a6..22bedcc 100644 --- a/chess-common.el +++ b/chess-common.el @@ -27,7 +27,8 @@ (starting-engine-done . "Starting chess program '%s'...done") (could-not-find-engine . "Cannot find %s executable; check `%s'") (draw-offer-declined . "Your draw offer was declined") - (illegal-move . "Illegal move"))) + (illegal-move . "Illegal move") + (not-yet-implemented . "This feature is not yet implemented"))) (defun chess-common-handler (game event &rest args) "Initialize the network chess engine." @@ -68,6 +69,9 @@ (chess-engine-send nil "new\n") (chess-engine-set-position nil)) + ((eq event 'force) + (chess-error 'not-yet-implemented)) + ((eq event 'undo) (dotimes (i (car args)) (chess-engine-send nil "undo\n")) |