procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dissociated-press): Use `(random N)' instead of while loop.

Browse source
This commit is contained in:
Paul Eggert 1993-08-01 20:50:07 +00:00
parent 93cc044bd6
commit 82305cbd4d
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/play/dissociate.el
View file

@ -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)