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 | 82305cbd4d216880da4149ede6a0701fd8f9b843 (patch) | |
| tree | 108f4f485f5e07f71cf36556d129c8dbae5a0f04 /lisp/play | |
| parent | 93cc044bd667a606c72f5d86e05dbc511a27337f (diff) | |
| download | emacs-82305cbd4d216880da4149ede6a0701fd8f9b843.tar.gz | |
(dissociated-press): Use `(random N)' instead of while loop.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/dissociate.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |