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 | cf47ea1bb93d0b4d72b92b1a64b0ca2e0f15d81e (patch) | |
tree | 5947c126e8f2abd9b1680752d48e61ac9d2190ba /lisp/play | |
parent | a726818a2e09207c2628948ae9bf042f34c28d7c (diff) | |
download | emacs-cf47ea1bb93d0b4d72b92b1a64b0ca2e0f15d81e.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) |