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-gnuchess.el | |
| parent | 442c62fd96d5cb79ab34faf1d8108d86372e96c3 (diff) | |
changes
Diffstat (limited to 'chess-gnuchess.el')
| -rw-r--r-- | chess-gnuchess.el | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/chess-gnuchess.el b/chess-gnuchess.el deleted file mode 100644 index c304a8b..0000000 --- a/chess-gnuchess.el +++ /dev/null @@ -1,38 +0,0 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; Play against the gnuchess engine -;; -;; $Revision$ - -(require 'chess-process) - -(defgroup chess-gnuchess nil - "Interface code for playing against gnuchess. Uses `chess-process'." - :group 'chess) - -(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 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) - -;;; chess-gnuchess.el ends here |