Mercurial > emacs

changeset 76623:27b51de2d1d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(record_char): Add BLOCK_INPUT around fwrite. (Fopen_dribble_file): Add BLOCK_INPUT around fclose.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Tue, 20 Mar 2007 08:50:10 +0000
parents e0b9cd18e1b6
children c8af69547c16
files src/keyboard.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Tue Mar 20 08:49:53 2007 +0000
+++ b/src/keyboard.c	Tue Mar 20 08:50:10 2007 +0000
@@ -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))