diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-01 01:15:43 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-01 01:15:43 +0100 |
| commit | b11531e99ffb65c99d0cc162bf03497b87fbd347 (patch) | |
| tree | 5436090540da288fc2066399e822880ee328accf /src/process.c | |
| parent | 8858b2ce88bec90932c06de60b76584352f73bd6 (diff) | |
Use XCAR/XCDR instead of Fcar etc
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 26 |
1 files changed, 13 insertions, 13 deletions
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 */ |