*** no comment ***

1 files changed, 12 insertions, 9 deletions

diff --git a/chess-phalanx.el b/chess-phalanx.el
index 270376d..846946e 100644
--- a/chess-phalanx.el
+++ b/chess-phalanx.el
@@ -28,15 +28,18 @@
 	  (lambda ()
 	    (error (match-string 1)))))))
 
-(defun chess-phalanx-handler (event &rest args)
-  (cond
-   ((eq event 'initialize)
-    (let ((proc (chess-common-handler 'initialize "phalanx")))
-      (process-send-string proc "nopost\n")
-      proc))
-
-   (t
-    (apply 'chess-common-handler event args))))
+(defun chess-phalanx-handler (game event &rest args)
+  (unless chess-engine-handling-event
+    (cond
+     ((eq event 'initialize)
+      (let ((proc (chess-common-handler game 'initialize "phalanx")))
+	(when (and (processp proc)
+		   (eq (process-status proc) 'run))
+	  (process-send-string proc "nopost\n")
+	  t)))
+
+     (t
+      (apply 'chess-common-handler game event args)))))
 
 (provide 'chess-phalanx)