Mercurial > emacs

changeset 43617:43f83a792e17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fopen_network_stream): Use GCPRO6.
author Kim F. Storm <storm@cua.dk>
date Fri, 01 Mar 2002 21:02:44 +0000
parents 8da8a9d6b0ac
children 22e8b9a7d39f
files src/process.c
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Fri Mar 01 20:59:55 2002 +0000
+++ b/src/process.c	Fri Mar 01 21:02:44 2002 +0000
@@ -1837,7 +1837,7 @@
   int ret = 0;
   int xerrno = 0;
   int s = -1, outch, inch;
-  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
+  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
   int retry = 0;
   int count = specpdl_ptr - specpdl;
   int count1;
@@ -1859,8 +1859,7 @@
 #endif
 
   /* Can only GCPRO 5 variables */
-  sentinel = Fcons (sentinel, filter);
-  GCPRO5 (name, buffer, host, service, sentinel);
+  GCPRO6 (name, buffer, host, service, sentinel, filter);
   CHECK_STRING (name);
   CHECK_STRING (host);
 
@@ -2155,8 +2154,8 @@
   XPROCESS (proc)->childp = Fcons (host, Fcons (service, Qnil));
   XPROCESS (proc)->command_channel_p = Qnil;
   XPROCESS (proc)->buffer = buffer;
-  XPROCESS (proc)->sentinel = XCAR (sentinel);
-  XPROCESS (proc)->filter = XCDR (sentinel);
+  XPROCESS (proc)->sentinel = sentinel;
+  XPROCESS (proc)->filter = filter;
   XPROCESS (proc)->command = Qnil;
   XPROCESS (proc)->pid = Qnil;
   XSETINT (XPROCESS (proc)->infd, inch);