[Emacs-diffs] Changes to emacs/src/dispnew.c,v

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/06/17 00:11:59

Index: dispnew.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/dispnew.c,v
retrieving revision 1.368
retrieving revision 1.369
diff -u -b -r1.368 -r1.369
--- dispnew.c   13 Jun 2006 22:06:22 -0000      1.368
+++ dispnew.c   17 Jun 2006 00:11:59 -0000      1.369
@@ -3849,6 +3849,12 @@
       double p = XFLOATINT (Vredisplay_preemption_period);
       int sec, usec;
 
+      if (detect_input_pending_ignore_squeezables ())
+       {
+         paused_p = 1;
+         goto do_pause;
+       }
+
       sec = (int) p;
       usec = (p - sec) * 1000000;
 
@@ -3936,6 +3942,7 @@
 #endif
     }
 
+ do_pause:
   /* Reset flags indicating that a window should be updated.  */
   set_window_update_flags (root_window, 0);
 
@@ -4262,7 +4269,8 @@
                if (EMACS_TIME_NEG_P (dif))
                  {
                    EMACS_ADD_TIME (preemption_next_check, tm, 
preemption_period);
-                   detect_input_pending_ignore_squeezables ();
+                   if (detect_input_pending_ignore_squeezables ())
+                     break;
                  }
              }
 #else
@@ -5288,7 +5296,8 @@
              if (EMACS_TIME_NEG_P (dif))
                {
                  EMACS_ADD_TIME (preemption_next_check, tm, preemption_period);
-                 detect_input_pending_ignore_squeezables ();
+                 if (detect_input_pending_ignore_squeezables ())
+                   break;
                }
            }
 #else