summaryrefslogtreecommitdiff
path: root/chess-common.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-common.el')
-rw-r--r--chess-common.el6
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"))