(random-number): Remove.

All callers changed to use `random' instead.

diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index a403f2efddb26bde0ee452e7c489434db32d940c..0bc047682b5e41bf62f69dc72836be657b9e9376 100644 (file)
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -319,16 +319,11 @@ is non-nil."
        ;; If score is equally good, choose randomly. But first check freeness:
        ((not (zerop (aref gomoku-board square)))
        (aset gomoku-score-table square -1))
-       ((= count (random-number (setq count (1+ count))))
+       ((zerop (random (setq count (1+ count))))
        (setq best-square square
              score-max   score)))
       (setq square (1+ square)))       ; try next square
     best-square))
-
-(defun random-number (n)
-  "Return a random integer between 0 and N-1 inclusive."
-  (setq n (% (random) n))
-  (if (< n 0) (- n) n))
 \f
 ;;;
 ;;; INITIALIZING THE SCORE TABLE.