Mercurial > emacs
changeset 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 | 586bb1122715 |
| children | e0672d4cf470 |
| files | src/process.c |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
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))