* dired.c (file_name_completion): Now static.

* dbusbind.c (xd_in_read_queued_messages): Now static.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1fbc25e..2293811 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-04-12  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * dired.c (file_name_completion): Now static.
+
+       * dbusbind.c (xd_in_read_queued_messages): Now static.
+
        * lisp.h (circular_list_error, FOREACH): Remove; unused.
        * data.c (circular_list_error): Remove.
 

diff --git a/src/dbusbind.c b/src/dbusbind.c
index b986724..792414b 100644 (file)
--- a/src/dbusbind.c
+++ b/src/dbusbind.c
@@ -76,7 +76,7 @@ static Lisp_Object QCdbus_type_array, QCdbus_type_variant;
 static Lisp_Object QCdbus_type_struct, QCdbus_type_dict_entry;
 
 /* Whether we are reading a D-Bus event.  */
-int xd_in_read_queued_messages = 0;
+static int xd_in_read_queued_messages = 0;
 
 \f
 /* We use "xd_" and "XD_" as prefix for all internal symbols, because

diff --git a/src/dired.c b/src/dired.c
index 2b0ef27..20d5b58 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -381,7 +381,9 @@ which see.  */)
 }
 
 \f
-Lisp_Object file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int ver_flag, Lisp_Object predicate);
+static Lisp_Object file_name_completion
+  (Lisp_Object file, Lisp_Object dirname, int all_flag, int ver_flag,
+   Lisp_Object predicate);
 
 DEFUN ("file-name-completion", Ffile_name_completion, Sfile_name_completion,
        2, 3, 0,
@@ -441,7 +443,7 @@ These are all file names in directory DIRECTORY which begin with FILE.  */)
 static int file_name_completion_stat (Lisp_Object dirname, DIRENTRY *dp, struct stat *st_addr);
 static Lisp_Object Qdefault_directory;
 
-Lisp_Object
+static Lisp_Object
 file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int ver_flag, Lisp_Object predicate)
 {
   DIR *d;