From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 12 Apr 2011 05:20:44 +0000 (-0700)
Subject: * dired.c (file_name_completion): Now static.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16390cd253ff51ab31e3f5c607827486959e1c64;p=emacs.git

* 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 1fbc25e07c8..22938117ff1 100644
--- 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 b986724d792..792414b23d8 100644
--- 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;
 
 
 /* We use "xd_" and "XD_" as prefix for all internal symbols, because
diff --git a/src/dired.c b/src/dired.c
index 2b0ef275cde..20d5b586670 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -381,7 +381,9 @@ which see.  */)
 }
 
 
-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;