Mercurial > emacs
changeset 99419:7ef18b2a2781
* fns.c (Frandom): Rename arg N to LIMIT to match the docs; doc fix.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 06 Nov 2008 11:20:05 +0000 |
| parents | 5e2ae9519997 |
| children | 60e39c0ed822 |
| files | src/ChangeLog src/fns.c |
| diffstat | 2 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Nov 06 06:58:58 2008 +0000 +++ b/src/ChangeLog Thu Nov 06 11:20:05 2008 +0000 @@ -1,3 +1,7 @@ +2008-11-06 Juanma Barranquero <lekktu@gmail.com> + + * fns.c (Frandom): Rename arg N to LIMIT to match the docs; doc fix. + 2008-11-06 Glenn Morris <rgm@gnu.org> * xterm.c (handle_one_xevent): Don't let popup menus cause
--- a/src/fns.c Thu Nov 06 06:58:58 2008 +0000 +++ b/src/fns.c Thu Nov 06 11:20:05 2008 +0000 @@ -95,18 +95,19 @@ doc: /* Return a pseudo-random number. All integers representable in Lisp are equally likely. On most systems, this is 29 bits' worth. -With positive integer argument N, return random number in interval [0,N). -With argument t, set the random number seed from the current time and pid. */) - (n) - Lisp_Object n; +With positive integer LIMIT, return random number in interval [0,LIMIT). +With argument t, set the random number seed from the current time and pid. +Other values of LIMIT are ignored. */) + (limit) + Lisp_Object limit; { EMACS_INT val; Lisp_Object lispy_val; unsigned long denominator; - if (EQ (n, Qt)) + if (EQ (limit, Qt)) seed_random (getpid () + time (NULL)); - if (NATNUMP (n) && XFASTINT (n) != 0) + if (NATNUMP (limit) && XFASTINT (limit) != 0) { /* Try to take our random number from the higher bits of VAL, not the lower, since (says Gentzel) the low bits of `random' @@ -115,10 +116,10 @@ it's possible to get a quotient larger than n; discarding these values eliminates the bias that would otherwise appear when using a large n. */ - denominator = ((unsigned long)1 << VALBITS) / XFASTINT (n); + denominator = ((unsigned long)1 << VALBITS) / XFASTINT (limit); do val = get_random () / denominator; - while (val >= XFASTINT (n)); + while (val >= XFASTINT (limit)); } else val = get_random ();