(mpuz-random): Remove.

All callers changed to use `random' instead.

diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el
index b0d7aeaab0c8142cc1cdb8692cfb63196e3e7d4f..d04889f8a6f7de732dcf75f531ef261687e356f2 100644 (file)
--- a/lisp/play/mpuz.el
+++ b/lisp/play/mpuz.el
@@ -33,11 +33,6 @@
 
 (random t)                             ; randomize
 
-(defun mpuz-random (n)
-  "Return a random integer between 0 and N - 1 inclusive."
-  (setq n (% (random) n))
-  (if (< n 0) (- n) n))
-
 (defvar mpuz-silent nil
   "*Set this to T if you don't want dings on inputs.")
 
@@ -142,7 +137,7 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
        (index 10)
        elem)
     (while letters
-      (setq elem    (nth (mpuz-random index) letters)
+      (setq elem    (nth (random index) letters)
            letters (delq elem letters)
            index   (1- index))
       (aset mpuz-digit-to-letter index elem)
@@ -185,8 +180,8 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]."
     ;; A,B,C,D & E, are the five rows of our multiplication.
     ;; Choose random values, discarding uninteresting cases.
     (while (progn
-            (setq A (mpuz-random 1000)
-                  B (mpuz-random 100)
+            (setq A (random 1000)
+                  B (random 100)
                   C (* A (% B 10))
                   D (* A (/ B 10))
                   E (* A B))