From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 Dec 1996 01:26:08 +0000 (+0000)
Subject: Include blockinput.h.
X-Git-Tag: emacs-20.1~3164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ececcbec2a29bb7e2ef8b1059d3f6d060781525c;p=emacs.git

Include blockinput.h.
(create_process): Block input around the fork.
---

diff --git a/src/process.c b/src/process.c
index 3325ffc1cea..830e559f188 100644
--- a/src/process.c
+++ b/src/process.c
@@ -103,6 +103,7 @@ Boston, MA 02111-1307, USA.  */
 #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 @@ create_process (process, new_argv, current_dir)
      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 @@ create_process (process, new_argv, current_dir)
     environ = save_environ;
   }
 
+  UNBLOCK_INPUT;
+
   /* This runs in the Emacs process.  */
   if (pid < 0)
     {