From: Kim F. Storm <storm@cua.dk>
Date: Tue, 25 May 2004 11:17:43 +0000 (+0000)
Subject: (wait_reading_process_input): Check connect_wait_mask
X-Git-Tag: ttn-vms-21-2-B4~6071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1566f511f1f71aebb1eac3dc7fceddd1e6448a3b;p=emacs.git

(wait_reading_process_input): Check connect_wait_mask
before actually accepting connection in case it has already been
accepted due to recursion.
---

diff --git a/src/process.c b/src/process.c
index 463d56ffb3d..82f61ffdfb2 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4581,7 +4581,8 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
 		}
 	    }
 #ifdef NON_BLOCKING_CONNECT
-	  if (check_connect && FD_ISSET (channel, &Connecting))
+	  if (check_connect && FD_ISSET (channel, &Connecting)
+	      && FD_ISSET (channel, &connect_wait_mask))
 	    {
 	      struct Lisp_Process *p;