diff options
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 5 |
1 files changed, 4 insertions, 1 deletions
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"))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; |