Mercurial > hg > xemacs-beta

comparison src/fns.c @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 859a2309aef8
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
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;