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

[YAMAMOTO Mitsuharu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     YAMAMOTO Mitsuharu <mituharu>   07/03/20 08:50:10

Index: keyboard.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/keyboard.c,v
retrieving revision 1.896
retrieving revision 1.897
diff -u -b -r1.896 -r1.897
--- keyboard.c  19 Mar 2007 05:29:34 -0000      1.896
+++ keyboard.c  20 Mar 2007 08:50:10 -0000      1.897
@@ -3525,6 +3525,7 @@
      If you, dear reader, have a better idea, you've got the source.  :-) */
   if (dribble)
     {
+      BLOCK_INPUT;
       if (INTEGERP (c))
        {
          if (XUINT (c) < 0x100)
@@ -3550,6 +3551,7 @@
        }
 
       fflush (dribble);
+      UNBLOCK_INPUT;
     }
 }
 
@@ -10436,7 +10438,9 @@
 {
   if (dribble)
     {
+      BLOCK_INPUT;
       fclose (dribble);
+      UNBLOCK_INPUT;
       dribble = 0;
     }
   if (!NILP (file))