# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1225970405 0
# Node ID 7ef18b2a27819711e7f13d4ef9ebfc44c6243151
# Parent  5e2ae9519997f9afe7672402aa369e4bc64e55c6
* fns.c (Frandom): Rename arg N to LIMIT to match the docs; doc fix.

diff -r 5e2ae9519997 -r 7ef18b2a2781 src/ChangeLog
--- 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
diff -r 5e2ae9519997 -r 7ef18b2a2781 src/fns.c
--- 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 ();