Mercurial > emacs
diff lisp/play/dissociate.el @ 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 | 507f64624555 |
children | 7198dbca1d01 |
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)