Mercurial > hg > xemacs-beta

diff src/process.h @ 359:8e84bee8ddd0 r21-1-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-9
author cvs
date Mon, 13 Aug 2007 10:57:55 +0200
parents ca9a9ec9c1c1
children cc15677e0335
line wrap: on
line diff
--- a/src/process.h	Mon Aug 13 10:57:07 2007 +0200
+++ b/src/process.h	Mon Aug 13 10:57:55 2007 +0200
@@ -46,7 +46,13 @@
 #define PROCESSP(x) RECORDP (x, process)
 #define GC_PROCESSP(x) GC_RECORDP (x, process)
 #define CHECK_PROCESS(x) CHECK_RECORD (x, process)
-#define PROCESS_LIVE_P(x) (!NILP (XPROCESS(x)->pipe_instream))
+#define PROCESS_LIVE_P(x) (!NILP ((x)->pipe_instream))
+
+#define CHECK_LIVE_PROCESS(x) do {			\
+  CHECK_PROCESS (x);					\
+  if (! PROCESS_LIVE_P (XPROCESS (x)))			\
+    dead_wrong_type_argument (Qprocess_live_p, (x));	\
+} while (0)
 
 #ifdef emacs