From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Feb 2016 00:15:43 +0000 (+0100)
Subject: Use XCAR/XCDR instead of Fcar etc
X-Git-Tag: emacs-26.0.90~2520^2~46
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b11531e99ffb65c99d0cc162bf03497b87fbd347;p=emacs.git

Use XCAR/XCDR instead of Fcar etc
---

diff --git a/src/process.c b/src/process.c
index afb98256ba5..b91e1c97a97 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3018,8 +3018,8 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
 
   while (!NILP (ip_addresses))
     {
-      ip_address = Fcar (ip_addresses);
-      ip_addresses = Fcdr (ip_addresses);
+      ip_address = XCAR (ip_addresses);
+      ip_addresses = XCDR (ip_addresses);
 
 #ifdef WINDOWSNT
     retry_connect:
@@ -3067,10 +3067,10 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
 	Lisp_Object params = contact, key, val;
 
 	while (!NILP (params)) {
-	  key = Fcar (params);
-	  params = Fcdr (params);
-	  val = Fcar (params);
-	  params = Fcdr (params);
+	  key = XCAR (params);
+	  params = XCDR (params);
+	  val = XCAR (params);
+	  params = XCDR (params);
 	  optbits |= set_socket_option (s, key, val);
 	}
       }
@@ -3307,7 +3307,7 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
     Lisp_Object params = p->gnutls_async_parameters, boot = Qnil;
 
     p->gnutls_async_parameters = Qnil;
-    boot = Fgnutls_boot (proc, Fcar (params), Fcdr (params));
+    boot = Fgnutls_boot (proc, XCAR (params), XCDR (params));
     if (STRINGP (boot)) {
       pset_status (p, Qfailed);
       deactivate_process (proc);
@@ -4736,8 +4736,8 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
 	  whether we got any answers. */
 	  while (!NILP (dns_list))
 	    {
-	      dns = Fcar (dns_list);
-	      dns_list = Fcdr (dns_list);
+	      dns = XCAR (dns_list);
+	      dns_list = XCDR (dns_list);
 	      p = XPROCESS (dns);
 	      if (p && p->dns_requests)
 		{
@@ -4762,10 +4762,10 @@ wait_reading_process_output (intmax_t time_limit, int nsecs, int read_kbd,
 	     requests. */
 	  while (!NILP (answers))
 	    {
-	      answer = Fcar (answers);
-	      answers = Fcdr (answers);
-	      if (!NILP (Fcdr (answer)))
-		connect_network_socket (Fcar (answer), Fcdr (answer));
+	      answer = XCAR (answers);
+	      answers = XCDR (answers);
+	      if (!NILP (XCDR (answer)))
+		connect_network_socket (XCAR (answer), XCDR (answer));
 	    }
 	}
 #endif /* HAVE_GETADDRINFO_A */