Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
358:fed6e0f6a03a 359:8e84bee8ddd0
44 #define XPROCESS(x) XRECORD (x, process, struct Lisp_Process) 44 #define XPROCESS(x) XRECORD (x, process, struct Lisp_Process)
45 #define XSETPROCESS(x, p) XSETRECORD (x, p, process) 45 #define XSETPROCESS(x, p) XSETRECORD (x, p, process)
46 #define PROCESSP(x) RECORDP (x, process) 46 #define PROCESSP(x) RECORDP (x, process)
47 #define GC_PROCESSP(x) GC_RECORDP (x, process) 47 #define GC_PROCESSP(x) GC_RECORDP (x, process)
48 #define CHECK_PROCESS(x) CHECK_RECORD (x, process) 48 #define CHECK_PROCESS(x) CHECK_RECORD (x, process)
49 #define PROCESS_LIVE_P(x) (!NILP (XPROCESS(x)->pipe_instream)) 49 #define PROCESS_LIVE_P(x) (!NILP ((x)->pipe_instream))
50
51 #define CHECK_LIVE_PROCESS(x) do { \
52 CHECK_PROCESS (x); \
53 if (! PROCESS_LIVE_P (XPROCESS (x))) \
54 dead_wrong_type_argument (Qprocess_live_p, (x)); \
55 } while (0)
50 56
51 #ifdef emacs 57 #ifdef emacs
52 58
53 EXFUN (Fprocess_kill_without_query, 2); 59 EXFUN (Fprocess_kill_without_query, 2);
54 EXFUN (Fprocess_id, 1); 60 EXFUN (Fprocess_id, 1);