diff src/dispnew.c @ 30720:64f3338f72d8

(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.

--- 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\