Fix to chess engine support.

1 files changed, 17 insertions, 12 deletions

diff --git a/chess-gnuchess.el b/chess-gnuchess.el
index ef2e4be..c304a8b 100644
--- a/chess-gnuchess.el
+++ b/chess-gnuchess.el
@@ -10,23 +10,28 @@
   "Interface code for playing against gnuchess.  Uses `chess-process'."
   :group 'chess)
 
-(defcustom chess-gnuchess-command "gnuchess"
+(defcustom chess-gnuchess-command (and (require 'executable)
+				       (executable-find "gnuchess"))
   "The name of the gnuchess program."
   :type 'string
   :group 'chess-gnuchess)
 
 ;;;###autoload
-(defun chess-gnuchess (session process event &rest args)
-  (chess-process
-   session process event
-   (list (list (concat "My move is : \\(" chess-algebraic-regexp "\\)")
-	       (function
-		(lambda (move)
-		  (chess-game-move chess-process-game move nil))) 1)
-	 '("Illegal move:" (error "Illegal move")))
-   (if (file-name-absolute-p chess-gnuchess-command)
-       chess-gnuchess-command
-     (executable-find chess-gnuchess-command))))
+(defun chess-gnuchess (session buffer event &rest args)
+  (if (not (eq event 'initialize))
+      (apply 'chess-process session buffer event args)
+    (chess-process session buffer event
+		   (list (list
+			  (concat "My move is : \\("
+				  chess-algebraic-regexp "\\)")
+			  (function
+			   (lambda (move)
+			     (chess-session-event
+			      chess-current-session 'move
+			      (chess-algebraic-to-ply
+			       (chess-game-pos chess-process-game) move)))) 1)
+			 '("Illegal move:" (error "Illegal move")))
+		   chess-gnuchess-command)))
 
 (provide 'chess-gnuchess)