From e1ac86bb8064d7528570fc5e44e93bc9b512520d Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 24 Jan 2003 22:14:55 +0000 Subject: Add status code to check for open server sockets. --- chess-engine.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index be4aa64..f3c2f30 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -301,8 +301,8 @@ (or response-handler 'chess-engine-default-handler)) (let ((proc chess-engine-process)) (when (and proc (processp proc)) - (unless (memq (process-status proc) '(run open)) - (chess-error 'failed-engine-start)) + (unless (memq (process-status proc) '(run open listen)) + (chess-error 'failed-start)) (unless (process-filter proc) (set-process-filter proc 'chess-engine-filter))) (setq chess-engine-current-marker (point-marker)) -- cgit v1.2.3