procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use XCAR/XCDR instead of Fcar etc

Browse source
This commit is contained in:
Lars Ingebrigtsen 2016-02-01 01:15:43 +01:00
parent 8858b2ce88
commit b11531e99f
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/process.c
View file

@ -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 */