diff options
| author | Paul Eggert <eggert@twinsun.com> | 1993-08-01 20:50:07 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1993-08-01 20:50:07 +0000 |
| commit | 6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826 (patch) | |
| tree | 9f331039058211b96775ce470f4ec00241bf632d /lisp/play/life.el | |
| parent | c9575b25acfec3493b56d63deb78c7e19ae0ec8c (diff) | |
| download | emacs-6b6d5edf696c11ce2b2ccad2f4b0b3586afa2826.tar.gz | |
(life-insert-random-pattern): Simplify (% (abs (random)) N)
to (random N).
Diffstat (limited to 'lisp/play/life.el')
| -rw-r--r-- | lisp/play/life.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 () |