* fns.c (get_random, seed_random): Move extern decls from here ...

* lisp.h: ... to here, so that they can be checked.

diff --git a/src/ChangeLog b/src/ChangeLog
index d695c20be4269a73b72794a1924ea3b57b46050c..e45fed841089ad4c046c283f088ba8c13e64fa84 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2011-03-14  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * fns.c (get_random, seed_random): Move extern decls from here ...
+       * lisp.h: ... to here, so that they can be checked.
+
        * sysdep.c (reset_io): Now static.
        (wait_for_termination_signal): Remove; unused.
 

diff --git a/src/fns.c b/src/fns.c
index b54d52e30037c279d9c3b8e3454771a3f5612323..0026c9d12e4f46abd1947081da61d1a6ce43585e 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -57,9 +57,6 @@ Lisp_Object Qcodeset, Qdays, Qmonths, Qpaper;
 
 static int internal_equal (Lisp_Object , Lisp_Object, int, int);
 
-extern long get_random (void);
-extern void seed_random (long);
-
 #ifndef HAVE_UNISTD_H
 extern long time ();
 #endif

diff --git a/src/lisp.h b/src/lisp.h
index 541302cb56bc174283e83f83b312df8fca9deae4..eacd68e42cb9c7574094b0aeeb003311bd2ff8ce 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3340,6 +3340,8 @@ extern void child_setup_tty (int);
 extern void setup_pty (int);
 extern int set_window_size (int, int, int);
 extern void create_process (Lisp_Object, char **, Lisp_Object);
+extern long get_random (void);
+extern void seed_random (long);
 extern int emacs_open (const char *, int, int);
 extern int emacs_close (int);
 extern int emacs_read (int, char *, unsigned int);