diff options
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/process.c b/src/process.c index 9139a36d4fd..c5a46f992d7 100644 --- a/src/process.c +++ b/src/process.c @@ -4557,23 +4557,22 @@ from PROCESS only, suspending reading output from other processes. If JUST-THIS-ONE is an integer, don't run any timers either. Return non-nil if we received any output from PROCESS (or, if PROCESS is nil, from any process) before the timeout expired. */) - (register Lisp_Object process, Lisp_Object seconds, Lisp_Object millisec, Lisp_Object just_this_one) + (Lisp_Object process, Lisp_Object seconds, Lisp_Object millisec, + Lisp_Object just_this_one) { intmax_t secs; int nsecs; if (! NILP (process)) { - struct Lisp_Process *procp; - CHECK_PROCESS (process); - procp = XPROCESS (process); + struct Lisp_Process *proc = XPROCESS (process); /* Can't wait for a process that is dedicated to a different thread. */ - if (!EQ (procp->thread, Qnil) && !EQ (procp->thread, Fcurrent_thread ())) + if (!EQ (proc->thread, Qnil) && !EQ (proc->thread, Fcurrent_thread ())) error ("Attempt to accept output from process %s locked to thread %s", - SDATA (procp->name), SDATA (XTHREAD (procp->thread)->name)); + SDATA (proc->name), SDATA (XTHREAD (proc->thread)->name)); } else just_this_one = Qnil; |