# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 851909168 0
# Node ID e9dc2569cb1296b101e4dedbe7b86572986e60d0
# Parent  746c7bab360673660afa3e2757bbc3b3b3a596ef
Include blockinput.h.
(create_process): Block input around the fork.

diff -r 746c7bab3606 -r e9dc2569cb12 src/process.c
--- a/src/process.c	Mon Dec 30 01:25:10 1996 +0000
+++ b/src/process.c	Mon Dec 30 01:26:08 1996 +0000
@@ -103,6 +103,7 @@
 #include "termopts.h"
 #include "commands.h"
 #include "frame.h"
+#include "blockinput.h"
 
 Lisp_Object Qprocessp;
 Lisp_Object Qrun, Qstop, Qsignal, Qopen, Qclosed;
@@ -1359,6 +1360,8 @@
      processes to get their return values scrambled.  */
   XSETINT (XPROCESS (process)->pid, -1);
 
+  BLOCK_INPUT;
+  
   {
     /* child_setup must clobber environ on systems with true vfork.
        Protect it from permanent change.  */
@@ -1528,6 +1531,8 @@
     environ = save_environ;
   }
 
+  UNBLOCK_INPUT;
+
   /* This runs in the Emacs process.  */
   if (pid < 0)
     {