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

Better async error reporting

Browse source 
* process.c (connect_network_socket): Mark failed processes
with a better error message.
(check_for_dns): Ditto.
This commit is contained in:
Lars Ingebrigtsen 2016-02-01 03:58:03 +01:00
parent 9de7d90184
commit bf4bbfe16d
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/process.c
View file

@ -3311,8 +3311,12 @@ void connect_network_socket (Lisp_Object proc, Lisp_Object ip_addresses)
p->gnutls_boot_parameters = Qnil;
boot = Fgnutls_boot (proc, XCAR (params), XCDR (params));
if (NILP (boot) || STRINGP (boot)) {
pset_status (p, Qfailed);
deactivate_process (proc);
if (NILP (boot))
pset_status (p, list2 (Qfailed,
build_string ("TLS negotiation failed")));
else
pset_status (p, list2 (Qfailed, boot));
}
}
#endif
@ -4614,8 +4618,12 @@ check_for_dns (Lisp_Object proc)
/* The DNS lookup failed. */
else
{
pset_status (p, Qfailed);
deactivate_process (proc);
pset_status (p, (list2
(Qfailed,
concat3 (build_string ("Name lookup of "),
build_string (p->dns_requests[0]->ar_name),
build_string (" failed")))));
}
xfree ((void *)p->dns_requests[0]->ar_request);