Mercurial > hg > xemacs-beta

comparison src/process.h @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 8e84bee8ddd0
children 74fd4e045ea6
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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 ((x)->pipe_instream)) 49 #define PROCESS_LIVE_P(x) (!NILP (XPROCESS(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)
56 50
57 #ifdef emacs 51 #ifdef emacs
58 52
59 EXFUN (Fprocess_kill_without_query, 2); 53 EXFUN (Fprocess_kill_without_query, 2);
60 EXFUN (Fprocess_id, 1); 54 EXFUN (Fprocess_id, 1);