Mercurial > hg > xemacs-beta
diff src/process.h @ 863:42375619fa45
[xemacs-hg @ 2002-06-04 06:03:59 by andyp]
merge 21.4 windows changes, minimally tested
| author | andyp |
|---|---|
| date | Tue, 04 Jun 2002 06:05:53 +0000 |
| parents | 2b6fa2618f76 |
| children | 79c6ff3eef26 |
line wrap: on
line diff
--- a/src/process.h Mon Jun 03 12:24:14 2002 +0000 +++ b/src/process.h Tue Jun 04 06:05:53 2002 +0000 @@ -44,7 +44,8 @@ #define wrap_process(p) wrap_record (p, process) #define PROCESSP(x) RECORDP (x, process) #define CHECK_PROCESS(x) CHECK_RECORD (x, process) -#define PROCESS_LIVE_P(x) (!NILP ((x)->pipe_instream)) +#define PROCESS_LIVE_P(x) (EQ ((x)->status_symbol, Qrun)) +#define PROCESS_READABLE_P(x) (!NILP ((x)->pipe_instream)) #define CHECK_LIVE_PROCESS(x) do { \ CHECK_PROCESS (x); \ @@ -52,6 +53,12 @@ dead_wrong_type_argument (Qprocess_live_p, (x)); \ } while (0) +#define CHECK_READABLE_PROCESS(x) do { \ + CHECK_PROCESS (x); \ + if (! PROCESS_READABLE_P (XPROCESS (x))) \ + dead_wrong_type_argument (Qprocess_readable_p, (x)); \ +} while (0) + EXFUN (Fprocess_kill_without_query, 2); EXFUN (Fprocess_id, 1);