From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 21 Jul 1999 21:43:52 +0000 (+0000)
Subject: (wait_reading_process_input): Show and hide busy
X-Git-Tag: emacs-pretest-21.0.90~7432
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efa2a55cbd069dc74315ca7b4c6a9d3244a70df4;p=emacs.git

(wait_reading_process_input): Show and hide busy
cursor.
---

diff --git a/src/process.c b/src/process.c
index 80dc4e06140..50b8647aa38 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2314,6 +2314,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
     {
       int timeout_reduced_for_timers = 0;
 
+#ifdef HAVE_X_WINDOWS
+      if (display_busy_cursor_p)
+	Fx_hide_busy_cursor (Qnil);
+#endif
+
       /* If calling from keyboard input, do not quit
 	 since we want to return C-g as an input character.
 	 Otherwise, do pending quit if requested.  */
@@ -2725,6 +2730,12 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
      Turn periodic alarms back on */
   start_polling ();
 #endif
+
+#ifdef HAVE_X_WINDOWS
+  if (display_busy_cursor_p)
+    if (!inhibit_busy_cursor)
+      Fx_show_busy_cursor ();
+#endif
    
   return got_some_input;
 }