From 871e9bb270b35c621265fc56ec582bdd39900e2a Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 11 Mar 2002 20:57:21 +0000 Subject: changes --- chess-gnuchess.el | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 chess-gnuchess.el (limited to 'chess-gnuchess.el') 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 -- cgit v1.2.3