mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 10:11:05 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1994-11-15 23:55:26 +00:00
parent 915857ff0a
commit b5b502d667
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/process.c
View file

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