From: Paul Eggert <eggert@twinsun.com>
Date: Sun, 1 Aug 1993 20:50:07 +0000 (+0000)
Subject: (life-insert-random-pattern): Simplify (% (abs (random)) N)
X-Git-Tag: emacs-19.34~11450
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826;p=emacs.git

(life-insert-random-pattern): Simplify (% (abs (random)) N)
to (random N).
---

diff --git a/lisp/play/life.el b/lisp/play/life.el
index 50e76e69cac..e4faecb61bd 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -182,7 +182,7 @@ generations (this defaults to 1)."
 
 (defun life-insert-random-pattern ()
   (insert-rectangle
-   (elt life-patterns (% (abs (random)) (length life-patterns))))
+   (elt life-patterns (random (length life-patterns))))
   (insert ?\n))
 
 (defun life-increment-generation ()