# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976717441 0
# Node ID 7c8d2cec3d087acc50e902b557f31d726796c0c7
# Parent  d175a5c9ef331e94f9abfba575e67df240f43f41
(update_window): If do_mouse_tracking is non-nil,
don't interrupt the update for pending input initially, i.e.
update at least some lines.

diff -r d175a5c9ef33 -r 7c8d2cec3d08 src/dispnew.c
--- a/src/dispnew.c	Wed Dec 13 14:13:18 2000 +0000
+++ b/src/dispnew.c	Wed Dec 13 14:24:01 2000 +0000
@@ -3766,6 +3766,7 @@
   int paused_p;
   int preempt_count = baud_rate / 2400 + 1;
   extern int input_pending;
+  extern Lisp_Object do_mouse_tracking;
 #if GLYPH_DEBUG
   struct frame *f = XFRAME (WINDOW_FRAME (w));
   extern struct frame *updating_frame;
@@ -3783,7 +3784,7 @@
 
   /* If forced to complete the update, or if no input is pending, do
      the update.  */
-  if (force_p || !input_pending)
+  if (force_p || !input_pending || !NILP (do_mouse_tracking))
     {
       struct glyph_row *row, *end;
       struct glyph_row *mode_line_row;