Mercurial > hg > xemacs-beta

comparison src/fns.c @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents c0c698873ce1
children 7d55a9ba150c
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
121 extern long get_random (void); 121 extern long get_random (void);
122 extern void seed_random (long arg); 122 extern void seed_random (long arg);
123 123
124 DEFUN ("random", Frandom, 0, 1, 0, /* 124 DEFUN ("random", Frandom, 0, 1, 0, /*
125 Return a pseudo-random number. 125 Return a pseudo-random number.
126 All integers representable in Lisp are equally likely.\n\ 126 All integers representable in Lisp are equally likely.
127 On most systems, this is 28 bits' worth.\n\ 127 On most systems, this is 28 bits' worth.
128 With positive integer argument N, return random number in interval [0,N).\n\ 128 With positive integer argument N, return random number in interval [0,N).
129 With argument t, set the random number seed from the current time and pid. 129 With argument t, set the random number seed from the current time and pid.
130 */ 130 */
131 (limit)) 131 (limit))
132 { 132 {
133 EMACS_INT val; 133 EMACS_INT val;