Move editfns decls to lisp.h to check interfaces.

diff --git a/src/ChangeLog b/src/ChangeLog
index c477a43..69cfaba 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-03-16  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * lisp.h (get_system_name, get_operating_system_release):
+       Move decls here, to check interfaces.
+       * process.c (get_operating_system_release): Move decl to lisp.h.
+       * xrdb.c (get_system_name): Likewise.
        * editfns.c (init_editfns, Fuser_login_name, Fuser_uid):
        (Fuser_real_uid, Fuser_full_name): Remove unnecessary casts,
        some of which prompt warnings from gcc -Wbad-function-cast.

diff --git a/src/editfns.c b/src/editfns.c
index bfe0716..9966eaa 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1391,8 +1391,6 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
   return Vsystem_name;
 }
 
-/* For the benefit of callers who don't want to include lisp.h */
-
 const char *
 get_system_name (void)
 {

diff --git a/src/lisp.h b/src/lisp.h
index 5da73c5..5a5e7db 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2874,6 +2874,7 @@ extern Lisp_Object safe_call2 (Lisp_Object, Lisp_Object, Lisp_Object);
 extern void init_eval (void);
 extern void syms_of_eval (void);
 
+/* Defined in editfns.c */
 extern Lisp_Object Qfield;
 EXFUN (Fcurrent_message, 0);
 EXFUN (Fgoto_char, 1);
@@ -2913,6 +2914,8 @@ extern Lisp_Object make_buffer_string (EMACS_INT, EMACS_INT, int);
 extern Lisp_Object make_buffer_string_both (EMACS_INT, EMACS_INT, EMACS_INT,
                                            EMACS_INT, int);
 extern void init_editfns (void);
+const char *get_system_name (void);
+const char *get_operating_system_release (void);
 extern void syms_of_editfns (void);
 EXFUN (Fconstrain_to_field, 5);
 EXFUN (Ffield_end, 3);

diff --git a/src/process.c b/src/process.c
index 7bfd2a3..39fa26e 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -162,8 +162,6 @@ extern Lisp_Object QCfilter;
 /* Define first descriptor number available for subprocesses.  */
 #define FIRST_PROC_DESC 3
 
-extern const char *get_operating_system_release (void);
-
 #ifndef HAVE_H_ERRNO
 extern int h_errno;
 #endif

diff --git a/src/xrdb.c b/src/xrdb.c
index 63e5851..a79f453 100644 (file)
--- a/src/xrdb.c
+++ b/src/xrdb.c
@@ -54,8 +54,6 @@ extern char *getenv (const char *);
 extern struct passwd *getpwuid (uid_t);
 extern struct passwd *getpwnam (const char *);
 
-extern const char *get_system_name (void);
-
 char *x_get_string_resource (XrmDatabase rdb, const char *name,
                             const char *class);
 static int file_p (const char *filename);