* fns.c (Frandom): Rename arg N to LIMIT to match the docs; doc fix.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2d94ce8a9af335c475c471b3d06adc10a98fdef5..5b8003fe779dc0ecc90e44ffb69673ec5ccdbc4f 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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

diff --git a/src/fns.c b/src/fns.c
index bf7b715223e301272c733d09da7a5e88241195f5..c4f4ab5fc76df266d31f414abcf58df07cb24a20 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -95,18 +95,19 @@ DEFUN ("random", Frandom, Srandom, 0, 1, 0,
        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 @@ With argument t, set the random number seed from the current time and pid.  */)
         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 ();