Mercurial > emacs

changeset 16780:e9dc2569cb12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include blockinput.h. (create_process): Block input around the fork.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Dec 1996 01:26:08 +0000
parents 746c7bab3606
children d63e41403d58
files src/process.c
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)
     {