Include blockinput.h.

(create_process): Block input around the fork.
This commit is contained in:
Richard M. Stallman 1996-12-30 01:26:08 +00:00
parent 8877186525
commit ececcbec2a

View file

@ -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)
{