Add sanity check for checking async DNS

* src/process.c (check_for_dns): Disregard processes that have
already been killed.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/process.c b/src/process.c
index 0c8fc43dd12..b232e331151 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4602,6 +4602,10 @@ check_for_dns (Lisp_Object proc)
   if (! p->dns_requests)
     return Qnil;
 
+  /* This process should not already be connected (or killed). */
+  if (p->infd != 0)
+    return Qnil;
+
   ret = gai_error (p->dns_requests[0]);
   if (ret == EAI_INPROGRESS)
     return Qt;