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-engine.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'chess-engine.el') diff --git a/chess-engine.el b/chess-engine.el index 4b6fc4c..eb61b17 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -143,7 +143,10 @@ (defun chess-engine-send (engine string) (chess-with-current-buffer engine - (process-send-string (get-buffer-process (current-buffer)) string))) + (let ((proc (get-buffer-process (current-buffer)))) + (if (and proc (memq (process-status proc) '(run open))) + (process-send-string proc string) + (error "The engine you are using is no longer running"))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; -- cgit v1.2.3