From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 15 Nov 1994 23:55:26 +0000 (+0000)
Subject: (NETCONN_P, kill_buffer_processes): Use the new type-test macros.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/b5b502d66734592a6ff194ea37cbfc2bf4b7db27

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

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))