1 files changed, 5 insertions, 2 deletions

diff --git a/src/process.c b/src/process.c
index 9b244d6d5c8..c9c7aa79545 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1670,7 +1670,10 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
 #ifdef TRY_AGAIN
       h_errno = 0;
 #endif
+      immediate_quit = 1;
+      QUIT;
       host_info_ptr = gethostbyname (XSTRING (host)->data);
+      immediate_quit = 0;
 #ifdef TRY_AGAIN
       if (! (host_info_ptr == 0 && h_errno == TRY_AGAIN))
 #endif
@@ -2228,10 +2231,10 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
         }
 
       if ((XINT (read_kbd) > 0 || wait_for_cell)
-          && detect_input_pending_run_timers ())
+          && detect_input_pending_run_timers (do_display))
         {
           swallow_events (do_display);
-          if (detect_input_pending_run_timers ())
+          if (detect_input_pending_run_timers (do_display))
             break;
         }