]> code.delx.au - gnu-emacs-elpa/blobdiff - chess-sjeng.el
Add examples for chess-plain and chess-ics1 to the manual.
[gnu-emacs-elpa] / chess-sjeng.el
index 298d3e72a0a71ba5b0d8758aa6c42cd7379d02b2..a0422582145f6b03435adf75120919514eb7045f 100644 (file)
@@ -3,30 +3,30 @@
 ;; Copyright (C) 2004  Free Software Foundation, Inc.
 
 ;; Author: Mario Lang <mlang@delysid.org>
-;; Keywords: games
+;; Keywords: games, processes
 
-;; This file is free software; you can redistribute it and/or modify
+;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
-;; This file is distributed in the hope that it will be useful,
+;; This program is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Code:
 
 (require 'chess-common)
+(require 'chess-fen)
 
 (defgroup chess-sjeng nil
   "The publically available chess engine 'sjeng'."
   :group 'chess-engine
+  :link '(custom-manual "(chess)Sjeng")
   :link '(url-link "http://sjeng.sourceforge.net"))
 
 (defcustom chess-sjeng-path (executable-find "sjeng")
@@ -75,7 +75,7 @@
 
      ((eq event 'setup-pos)
       (chess-engine-send nil (format "setboard %s\n"
-                                    (chess-pos-to-string (car args)))))
+                                    (chess-pos-to-fen (car args)))))
 
      ((eq event 'move)
       (when (= 1 (chess-game-index game))