Mercurial > emacs
changeset 4404:46f13ed25534
(dissociated-press): Use `(random N)' instead of while loop.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Sun, 01 Aug 1993 20:50:07 +0000 |
| parents | 2d6328c324cd |
| children | 935cc145f0b5 |
| files | lisp/play/dissociate.el |
| diffstat | 1 files changed, 1 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/dissociate.el Sun Aug 01 20:50:07 1993 +0000 +++ b/lisp/play/dissociate.el Sun Aug 01 20:50:07 1993 +0000 @@ -88,9 +88,7 @@ (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)