(dissociated-press): Use `(random N)' instead of while loop.

diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 494d83b..6939f32 100644 (file)
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -88,9 +88,7 @@ Default is 2."
                                         (funcall move-function
                                                  (- move-amount)))
                                  (point))))
-          (let (ranval)
-            (while (< (setq ranval (random)) 0))
-            (goto-char (1+ (% ranval (1- (point-max))))))
+          (goto-char (1+ (random (1- (point-max)))))
           (or (funcall search-function overlap nil t)
               (let ((opoint (point)))
                 (goto-char 1)