summaryrefslogtreecommitdiff
path: root/chess-crafty.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-03-11 20:57:21 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-03-11 20:57:21 +0000
commit871e9bb270b35c621265fc56ec582bdd39900e2a (patch)
tree0f031b50dba5beb8a49e697f2488831a32f69655 /chess-crafty.el
parent442c62fd96d5cb79ab34faf1d8108d86372e96c3 (diff)
changes
Diffstat (limited to 'chess-crafty.el')
-rw-r--r--chess-crafty.el45
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