Updated TODO file

[gnu-emacs-elpa] / chess-random.el

diff --git a/chess-random.el b/chess-random.el
index 210ba31920176ed5c0d9ffe976dbd93b379892b4..06a01e60e50ad0ae5cc41eb834819adc363318dc 100644 (file)
--- a/chess-random.el
+++ b/chess-random.el
@@ -5,13 +5,12 @@
 ;; Just call `chess-fischer-random-position' to generate such a
 ;; position.
 ;;
-;; $Revision$
 
 (require 'chess-pos)
 
 (defvar pieces-vector [?r ?n ?b ?q ?k ?b ?n ?r])
 
-(defun shuffle-vector (vector)
+(defun chess-shuffle-vector (vector)
   "Randomly permute the elements of VECTOR (all permutations equally likely)"
   (let ((i 0)
        j
@@ -27,9 +26,10 @@
 
 ;;;###autoload
 (defun chess-fischer-random-position ()
+  "Generate a Fischer Random style position."
   (let (pieces position)
     (while (null position)
-      (setq pieces (shuffle-vector pieces-vector))
+      (setq pieces (chess-shuffle-vector pieces-vector))
       (let (first-bishop first-rook king)
        (catch 'retry
          (dotimes (i 8)
@@ -58,13 +58,6 @@
       (chess-pos-set-piece position (chess-rf-to-index 7 i)
                           (upcase (aref pieces i))))
 
-    ;; jww (2002-04-12): Until I fully support Fischer Random
-    ;; castling, I will disable it here
-    (chess-pos-set-can-castle position ?K nil)
-    (chess-pos-set-can-castle position ?Q nil)
-    (chess-pos-set-can-castle position ?k nil)
-    (chess-pos-set-can-castle position ?q nil)
-
     position))
 
 (provide 'chess-random)