* process.c (wait_reading_process_output): Add missing FD_CLR

[bpt/emacs.git] / src / process.c

diff --git a/src/process.c b/src/process.c
index cf16027..4536dcc 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -5068,6 +5068,7 @@ wait_reading_process_output (int time_limit, int microsecs, int read_kbd,
              struct Lisp_Process *p;
 
              FD_CLR (channel, &connect_wait_mask);
+              FD_CLR (channel, &write_mask);
              if (--num_pending_connects < 0)
                abort ();