From 110d1880915bf26b13a8309419a67bf272b34d4d Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 8 Apr 2002 08:33:32 +0000 Subject: *** no comment *** --- chess-network.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'chess-network.el') 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)) -- cgit v1.2.3