From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 15 Apr 2011 00:58:49 +0000 (-0300)
Subject: * src/process.c (Qprocessp): Don't declare static.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c60eb9f2c4778c5fc07dd44b283edeb8583a3a0;p=emacs.git

* src/process.c (Qprocessp): Don't declare static.
* src/lisp.h (Qprocessp): Declare again.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 2b0df1f7a30..e3e6862f7e8 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* process.c (Qprocessp): Don't declare static.
+	* lisp.h (Qprocessp): Declare again.
+
 2011-04-14  Paul Eggert  <eggert@cs.ucla.edu>
 
 	Improve C-level modularity by making more things 'static'.
diff --git a/src/lisp.h b/src/lisp.h
index 8b8e25eb689..96c8e42995b 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3194,12 +3194,13 @@ extern int inhibit_window_system;
 /* Nonzero means that a filter or a sentinel is running.  */
 extern int running_asynch_code;
 
-/* Defined in process.c */
+/* Defined in process.c.  */
 extern Lisp_Object QCtype, Qlocal;
 EXFUN (Fget_buffer_process, 1);
 EXFUN (Fprocess_status, 1);
 EXFUN (Fkill_process, 2);
 EXFUN (Fwaiting_for_user_input_p, 0);
+extern Lisp_Object Qprocessp;
 extern void kill_buffer_processes (Lisp_Object);
 extern int wait_reading_process_output (int, int, int, int,
                                         Lisp_Object,
diff --git a/src/process.c b/src/process.c
index 741f2e363f3..e9ac324845b 100644
--- a/src/process.c
+++ b/src/process.c
@@ -24,7 +24,7 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #include <stdio.h>
 #include <errno.h>
 #include <setjmp.h>
-#include <sys/types.h>		/* some typedefs are used in sys/file.h */
+#include <sys/types.h>		/* Some typedefs are used in sys/file.h.  */
 #include <sys/file.h>
 #include <sys/stat.h>
 #include <setjmp.h>
@@ -127,7 +127,7 @@ int inhibit_sentinels;
 
 #ifdef subprocesses
 
-static Lisp_Object Qprocessp;
+Lisp_Object Qprocessp;
 static Lisp_Object Qrun, Qstop, Qsignal;
 static Lisp_Object Qopen, Qclosed, Qconnect, Qfailed, Qlisten;
 Lisp_Object Qlocal;