* src/process.c (Qprocessp): Don't declare static.

* src/lisp.h (Qprocessp): Declare again.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2b0df1f..e3e6862 100644 (file)
--- 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 8b8e25e..96c8e42 100644 (file)
--- 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 741f2e3..e9ac324 100644 (file)
--- 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;