From c67544683ffed1660bad0d5e67a6e5d47e288be1 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 8 Apr 2002 23:03:39 +0000 Subject: *** no comment *** --- chess-network.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'chess-network.el') diff --git a/chess-network.el b/chess-network.el index c2aae2c..8c4f558 100644 --- a/chess-network.el +++ b/chess-network.el @@ -16,7 +16,7 @@ (cons "pass" (function (lambda () - (message "Your opponent has passed the move to you")))) + (funcall chess-engine-response-handler 'pass)))) (cons "name\\s-+\\(.+\\)" (function (lambda () @@ -25,14 +25,12 @@ (cons "fen\\s-+\\(.+\\)" (function (lambda () - (let* ((position (chess-fen-to-pos (match-string 1))) - (ply (chess-ply-create position))) - (chess-game-set-plies (chess-engine-game nil) - (list ply)))))) + (funcall chess-engine-response-handler 'setup + (match-string 1))))) (cons "quit" (function (lambda () - (message "Your opponent has quit playing")))))) + (funcall chess-engine-response-handler 'quit)))))) (defun chess-network-perform-move () (let* ((move (match-string 1)) -- cgit v1.2.3