diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-03-11 20:57:21 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-03-11 20:57:21 +0000 |
| commit | 871e9bb270b35c621265fc56ec582bdd39900e2a (patch) | |
| tree | 0f031b50dba5beb8a49e697f2488831a32f69655 /chess-crafty.el | |
| parent | 442c62fd96d5cb79ab34faf1d8108d86372e96c3 (diff) | |
changes
Diffstat (limited to 'chess-crafty.el')
| -rw-r--r-- | chess-crafty.el | 45 |
1 files changed, 0 insertions, 45 deletions
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 |
