diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-16 06:21:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-16 06:21:56 +0000 |
| commit | 2cff09d5b5819e5eadf483ba69d2109e64edee18 (patch) | |
| tree | 5ed9e878d1ea742e0d243bbcfcf8fc62477ada0b /src/fns.c | |
| parent | e5ec6c256b05ae6d11280d28a710c06c9da7186f (diff) | |
| download | emacs-2cff09d5b5819e5eadf483ba69d2109e64edee18.tar.gz | |
(time): Declare it only if not HAVE_UNISTD_H.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/fns.c b/src/fns.c index 507811553ff..5d5f3fc12d6 100644 --- a/src/fns.c +++ b/src/fns.c @@ -60,6 +60,13 @@ Lisp_Object Qcursor_in_echo_area; Lisp_Object Qwidget_type; static int internal_equal (); + +extern long get_random (); +extern void seed_random (); + +#ifndef HAVE_UNISTD_H +extern long time (); +#endif DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0, "Return the argument unchanged.") @@ -69,10 +76,6 @@ DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0, return arg; } -extern long get_random (); -extern void seed_random (); -extern long time (); - DEFUN ("random", Frandom, Srandom, 0, 1, 0, "Return a pseudo-random number.\n\ All integers representable in Lisp are equally likely.\n\ |