diff options
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 5 |
1 files changed, 5 insertions, 0 deletions
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) { |