Make sure 'make-process' locks the process to the current thread

* src/process.c (set_proc_thread): New function.
(Fset_process_thread, create_process): Use it.

1 files changed, 15 insertions, 6 deletions

diff --git a/src/process.c b/src/process.c
index ccad26b5339..f8d67561f26 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1446,6 +1446,18 @@ See `set-process-sentinel' for more info on sentinels.  */)
   return XPROCESS (process)->sentinel;
 }
 
+static void
+set_proc_thread (struct Lisp_Process *proc, struct thread_state *thrd)
+{
+  eassert (THREADP (proc->thread) && XTHREAD (proc->thread) == thrd);
+  eassert (proc->infd < FD_SETSIZE);
+  if (proc->infd >= 0)
+    fd_callback_info[proc->infd].thread = thrd;
+  eassert (proc->outfd < FD_SETSIZE);
+  if (proc->outfd >= 0)
+    fd_callback_info[proc->outfd].thread = thrd;
+}
+
 DEFUN ("set-process-thread", Fset_process_thread, Sset_process_thread,
        2, 2, 0,
        doc: /* Set the locking thread of PROCESS to be THREAD.
@@ -1466,12 +1478,7 @@ If THREAD is nil, the process is unlocked.  */)
 
   proc = XPROCESS (process);
   pset_thread (proc, thread);
-  eassert (proc->infd < FD_SETSIZE);
-  if (proc->infd >= 0)
-    fd_callback_info[proc->infd].thread = tstate;
-  eassert (proc->outfd < FD_SETSIZE);
-  if (proc->outfd >= 0)
-    fd_callback_info[proc->outfd].thread = tstate;
+  set_proc_thread (proc, tstate);
 
   return thread;
 }
@@ -2261,6 +2268,8 @@ create_process (Lisp_Object process, char **new_argv, Lisp_Object current_dir)
       && !EQ (p->filter, Qt))
     add_process_read_fd (inchannel);
 
+  set_proc_thread (p, current_thread);
+
   specpdl_ref count = SPECPDL_INDEX ();
 
   /* This may signal an error.  */