Fix to chess engine support.

1 files changed, 17 insertions, 20 deletions

diff --git a/chess-crafty.el b/chess-crafty.el
index 06b5451..d15be54 100644
--- a/chess-crafty.el
+++ b/chess-crafty.el
@@ -10,7 +10,8 @@
   "Interface code for playing against crafty.  Uses `chess-process'."
   :group 'chess)
 
-(defcustom chess-crafty-command "crafty"
+(defcustom chess-crafty-command (and (require 'executable)
+				     (executable-find "crafty"))
   "The name of the crafty program."
   :type 'string
   :group 'chess-crafty)
@@ -22,25 +23,21 @@
   (if (not (eq event 'initialize))
       (apply 'chess-process session buffer event args)
     (with-current-buffer
-	(chess-process session buffer event
-		       chess-process-triggers
-		       (if (file-name-absolute-p chess-crafty-command)
-			   chess-crafty-command
-			 (executable-find chess-crafty-command)))
-      (process-send-string
-       (get-buffer-process (current-buffer))
-       (concat "display nogeneral\n"
-	       "display nochanges\n"
-	       "display noextstats\n"
-	       "display nohashstats\n"
-	       "display nomoves\n"
-	       "display nonodes\n"
-	       "display noply1\n"
-	       "display nostats\n"
-	       "display notime\n"
-	       "display novariation\n"
-	       "alarm off\n"
-	       "ansi off\n"))
+	(chess-process session buffer event chess-process-triggers
+		       chess-crafty-command)
+      (process-send-string (get-buffer-process (current-buffer))
+			   (concat "display nogeneral\n"
+				   "display nochanges\n"
+				   "display noextstats\n"
+				   "display nohashstats\n"
+				   "display nomoves\n"
+				   "display nonodes\n"
+				   "display noply1\n"
+				   "display nostats\n"
+				   "display notime\n"
+				   "display novariation\n"
+				   "alarm off\n"
+				   "ansi off\n"))
       (current-buffer))))
 
 (provide 'chess-crafty)