From 6c60eb9f2c4778c5fc07dd44b283edeb8583a3a0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 14 Apr 2011 21:58:49 -0300 Subject: [PATCH] * src/process.c (Qprocessp): Don't declare static. * src/lisp.h (Qprocessp): Declare again. --- src/ChangeLog | 5 +++++ src/lisp.h | 3 ++- src/process.c | 4 ++-- 3 files changed, 9 insertions(+), 3 deletions(-) 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 + + * process.c (Qprocessp): Don't declare static. + * lisp.h (Qprocessp): Declare again. + 2011-04-14 Paul Eggert 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 . */ #include #include #include -#include /* some typedefs are used in sys/file.h */ +#include /* Some typedefs are used in sys/file.h. */ #include #include #include @@ -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; -- 2.39.2