diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-30 01:26:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-30 01:26:08 +0000 |
| commit | ececcbec2a29bb7e2ef8b1059d3f6d060781525c (patch) | |
| tree | 103123d18cdd2bd0f43a8c50a14d2d48827c3220 /src/process.c | |
| parent | 8877186525cfab53f33c57df4bea51a40696b5de (diff) | |
| download | emacs-ececcbec2a29bb7e2ef8b1059d3f6d060781525c.tar.gz | |
Include blockinput.h.
(create_process): Block input around the fork.
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) { |