Mercurial > emacs
diff src/process.c @ 9952:9daedd94a204
(NETCONN_P, kill_buffer_processes): Use the new type-test macros.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 15 Nov 1994 23:55:26 +0000 |
parents | ccc5562a7194 |
children | 007d93b04e1f |
line wrap: on
line diff
--- a/src/process.c Tue Nov 15 23:55:03 1994 +0000 +++ b/src/process.c Tue Nov 15 23:55:26 1994 +0000 @@ -111,7 +111,7 @@ #ifdef HAVE_SOCKETS static Lisp_Object stream_process; -#define NETCONN_P(p) (XGCTYPE (XPROCESS (p)->childp) == Lisp_String) +#define NETCONN_P(p) (GC_STRINGP (XPROCESS (p)->childp)) #else #define NETCONN_P(p) 0 #endif /* HAVE_SOCKETS */ @@ -3005,11 +3005,10 @@ { Lisp_Object tail, proc; - for (tail = Vprocess_alist; XGCTYPE (tail) == Lisp_Cons; - tail = XCONS (tail)->cdr) + for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCONS (tail)->cdr) { proc = XCONS (XCONS (tail)->car)->cdr; - if (XGCTYPE (proc) == Lisp_Process + if (GC_PROCESSP (proc) && (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer))) { if (NETCONN_P (proc))