Commit b5b502d6 authored by Karl Heuer's avatar Karl Heuer
Browse files

(NETCONN_P, kill_buffer_processes): Use the new type-test macros.

parent 915857ff
...@@ -111,7 +111,7 @@ Lisp_Object Qlast_nonmenu_event; ...@@ -111,7 +111,7 @@ Lisp_Object Qlast_nonmenu_event;
#ifdef HAVE_SOCKETS #ifdef HAVE_SOCKETS
static Lisp_Object stream_process; 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 #else
#define NETCONN_P(p) 0 #define NETCONN_P(p) 0
#endif /* HAVE_SOCKETS */ #endif /* HAVE_SOCKETS */
...@@ -3005,11 +3005,10 @@ kill_buffer_processes (buffer) ...@@ -3005,11 +3005,10 @@ kill_buffer_processes (buffer)
{ {
Lisp_Object tail, proc; Lisp_Object tail, proc;
for (tail = Vprocess_alist; XGCTYPE (tail) == Lisp_Cons; for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCONS (tail)->cdr)
tail = XCONS (tail)->cdr)
{ {
proc = XCONS (XCONS (tail)->car)->cdr; proc = XCONS (XCONS (tail)->car)->cdr;
if (XGCTYPE (proc) == Lisp_Process if (GC_PROCESSP (proc)
&& (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer))) && (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer)))
{ {
if (NETCONN_P (proc)) if (NETCONN_P (proc))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment