(pick-random): Remove.

All callers changed to use `random' instead.

diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index ee5521aa3b43628eebe1303e6008d63d1cdf08bf..a7792fb32b6b7696819caf0ec32f850a069a3e29 100644 (file)
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -30,8 +30,7 @@
 ;; the NSA Trunk Trawler.
 ;;
 ;; The two entry points are `cookie' and `cookie-insert'.  The helper
-;; functions `pick-random' and `shuffle-vector' may be of interest to
-;; programmers.
+;; function `shuffle-vector' may be of interest to programmers.
 ;;
 ;; The code expects phrase files to be in one of two formats:
 ;;
@@ -121,10 +120,6 @@ subsequent calls on the same file won't go to disk."
          (message endmsg)
          (set sym (apply 'vector result)))))))
 
-(defun pick-random (n)
-  "Returns a random number from 0 to N-1 inclusive."
-  (% (logand 0777777 (random)) n))
-
 ; Thanks to Ian G Batten <BattenIG@CS.BHAM.AC.UK>
 ; [of the University of Birmingham Computer Science Department]
 ; for the iterative version of this shuffle.
@@ -137,7 +132,7 @@ subsequent calls on the same file won't go to disk."
        temp
        (len (length vector)))
     (while (< i len)
-      (setq j (+ i (pick-random (- len i))))
+      (setq j (+ i (random (- len i))))
       (setq temp (aref vector i))
       (aset vector i (aref vector j))
       (aset vector j temp)