From: Paul Eggert <eggert@twinsun.com>
Date: Sun, 1 Aug 1993 20:50:07 +0000 (+0000)
Subject: (dissociated-press): Use `(random N)' instead of while loop.
X-Git-Tag: emacs-19.34~11447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82305cbd4d216880da4149ede6a0701fd8f9b843;p=emacs.git

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

diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 494d83b3b58..6939f320f79 100644
--- 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)