(echo_area_display): Bind redisplay-dont-pause to t

around the call to redisplay_internal.

2 files changed, 9 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 8563a8fdbe2..8e5fdb97d26 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2000-12-28  Gerd Moellmann  <gerd@gnu.org>
 
+        * xdisp.c (echo_area_display): Bind redisplay-dont-pause to t
+        around the call to redisplay_internal.
+
         * xfns.c: Use #if GLYPH_DEBUG instead of #ifdef GLYPH_DEBUG.
 
         * dispnew.c: Use #if GLYPH_DEBUG instead of #ifdef GLYPH_DEBUG.
diff --git a/src/xdisp.c b/src/xdisp.c
index 708c5f170cb..6127fe4e00a 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6698,9 +6698,14 @@ echo_area_display (update_frame_p)
             
           if (window_height_changed_p)
             {
-              /* Must update other windows.  */
+              /* Must update other windows.  Likewise as in other
+                 cases, don't let this update be interrupted by
+                 pending input.  */
+              int count = BINDING_STACK_SIZE ();
+              specbind (Qredisplay_dont_pause, Qt);
               windows_or_buffers_changed = 1;
               redisplay_internal (0);
+              unbind_to (count, Qnil);
             }
           else if (FRAME_WINDOW_P (f) && n == 0)
             {