From 871e9bb270b35c621265fc56ec582bdd39900e2a Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 11 Mar 2002 20:57:21 +0000 Subject: changes --- chess-crafty.el | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 chess-crafty.el (limited to 'chess-crafty.el') diff --git a/chess-crafty.el b/chess-crafty.el deleted file mode 100644 index d15be54..0000000 --- a/chess-crafty.el +++ /dev/null @@ -1,45 +0,0 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; Play against the crafty engine -;; -;; $Revision$ - -(require 'chess-process) - -(defgroup chess-crafty nil - "Interface code for playing against crafty. Uses `chess-process'." - :group 'chess) - -(defcustom chess-crafty-command (and (require 'executable) - (executable-find "crafty")) - "The name of the crafty program." - :type 'string - :group 'chess-crafty) - -;;; Code: - -;;;###autoload -(defun chess-crafty (session buffer event &rest args) - (if (not (eq event 'initialize)) - (apply 'chess-process session buffer event args) - (with-current-buffer - (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) - -;;; chess-crafty.el ends here -- cgit v1.2.3