Mercurial > emacs

diff src/dispnew.c @ 90789:c0409ee15cee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 670-674) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 209-210) - Merge from emacs--devo--0 - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-185
author Miles Bader <miles@gnu.org>
date Wed, 21 Mar 2007 13:33:07 +0000
parents dd7c098af727 685fa6c9ae44
children e6fdae9180d4
line wrap: on
line diff
--- a/src/dispnew.c	Sun Mar 18 14:12:38 2007 +0000
+++ b/src/dispnew.c	Wed Mar 21 13:33:07 2007 +0000
@@ -6360,7 +6360,12 @@
      (file)
      Lisp_Object file;
 {
-  if (termscript != 0) fclose (termscript);
+  if (termscript != 0)
+    {
+      BLOCK_INPUT;
+      fclose (termscript);
+      UNBLOCK_INPUT;
+    }
   termscript = 0;
 
   if (! NILP (file))
@@ -6383,6 +6388,7 @@
 {
   /* ??? Perhaps we should do something special for multibyte strings here.  */
   CHECK_STRING (string);
+  BLOCK_INPUT;
   fwrite (SDATA (string), 1, SBYTES (string), stdout);
   fflush (stdout);
   if (termscript)
@@ -6391,6 +6397,7 @@
 	      termscript);
       fflush (termscript);
     }
+  UNBLOCK_INPUT;
   return Qnil;
 }