diff options
| author | Karl Heuer <[email protected]> | 1994-11-15 23:55:26 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-11-15 23:55:26 +0000 |
| commit | b5b502d66734592a6ff194ea37cbfc2bf4b7db27 (patch) | |
| tree | f25428a4fddc33cce02b8512f80dc3592304136f /src | |
| parent | 915857ff0a5fa89192d35b3155aba49814b19a8c (diff) | |
(NETCONN_P, kill_buffer_processes): Use the new type-test macros.
Diffstat (limited to 'src')
| -rw-r--r-- | src/process.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/process.c b/src/process.c index b580b11b66..dd830fdb83 100644 --- a/src/process.c +++ b/src/process.c @@ -111,7 +111,7 @@ Lisp_Object Qlast_nonmenu_event; #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 @@ kill_buffer_processes (buffer) { 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)) |