# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 965846398 0
# Node ID 64f3338f72d8ddcf8773ea2f7a12c88ee9292d5b
# Parent  fd7db1cf7adf7b4c0bed5ad33d7f13946364b22a
(Qredisplay_dont_pause): New variable.
(syms_of_display): Initialize and staticpro it.
(update_frame_1): Don't interrupt the display for pending input if
redisplay_dont_pause is set.

diff -r fd7db1cf7adf -r 64f3338f72d8 src/dispnew.c
--- a/src/dispnew.c	Wed Aug 09 15:49:33 2000 +0000
+++ b/src/dispnew.c	Wed Aug 09 18:39:58 2000 +0000
@@ -241,7 +241,7 @@
 
 int cursor_in_echo_area;
 
-Lisp_Object Qdisplay_table;
+Lisp_Object Qdisplay_table, Qredisplay_dont_pause;
 
 
 /* The currently selected frame.  In a single-frame version, this
@@ -4695,8 +4695,9 @@
   if (preempt_count <= 0)
     preempt_count = 1;
 
-  detect_input_pending ();
-  if (input_pending && !force_p)
+  if (redisplay_dont_pause)
+    force_p = 1;
+  else if (!force_p && detect_input_pending ())
     {
       pause = 1;
       goto do_pause;
@@ -6225,6 +6226,8 @@
 
   Qdisplay_table = intern ("display-table");
   staticpro (&Qdisplay_table);
+  Qredisplay_dont_pause = intern ("redisplay-dont-pause");
+  staticpro (&Qredisplay_dont_pause);
 
   DEFVAR_INT ("baud-rate", &baud_rate,
     "*The output baud rate of the terminal.\n\