From 49bdcd3e96c848304256ef6b7b4106ebf1fda418 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Apr 1998 06:21:56 +0000 Subject: [PATCH] (time): Declare it only if not HAVE_UNISTD_H. --- src/fns.c | 11 +++++++---- 1 file 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\ -- 2.39.2