summaryrefslogtreecommitdiff
path: root/chess-network.el
diff options
context:
space:
mode:
Diffstat (limited to 'chess-network.el')
-rw-r--r--chess-network.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/chess-network.el b/chess-network.el
index 5127055..6ef4126 100644
--- a/chess-network.el
+++ b/chess-network.el
@@ -31,7 +31,11 @@
(let* ((position (chess-fen-to-pos (match-string 1)))
(ply (chess-ply-create position)))
(chess-game-set-plies (chess-engine-game nil)
- (list ply))))))))
+ (list ply))))))
+ (cons "QUIT"
+ (function
+ (lambda ()
+ (message "Your opponent has quit playing"))))))
(defun chess-network-perform-move ()
(let ((position (chess-engine-position nil))