From d4993c54eb9b6ab904db8ed43189ac0b561092aa Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 30 Apr 2002 19:32:39 +0000 Subject: bug fixes --- chess-common.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'chess-common.el') 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")) -- cgit v1.2.3