(do_mouse_tracking): Make externally visible.

2 files changed, 7 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 7dc51cd46f9..3fdaf7b259c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -7,6 +7,12 @@
 
 2000-12-13  Gerd Moellmann  <gerd@gnu.org>
 
+        * dispnew.c (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.
+
+        * keyboard.c (do_mouse_tracking): Make externally visible.
+        
         * xterm.c (x_term_init): Declare gray_bitmap_bits as `extern char *'.
 
         * xfns.c (gray_bitmap_bits): Declare `char *'.
diff --git a/src/keyboard.c b/src/keyboard.c
index 13b93fb390e..ae7ad55da38 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -523,7 +523,7 @@ static struct input_event * volatile kbd_store_ptr;
 /* If this flag is non-nil, we check mouse_moved to see when the
    mouse moves, and motion events will appear in the input stream.
    Otherwise, mouse motion is ignored.  */
-static Lisp_Object do_mouse_tracking;
+Lisp_Object do_mouse_tracking;
 
 /* Symbols to head events.  */
 Lisp_Object Qmouse_movement;