Commit 577d03d5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fprocess_send_eof): Make sure proc is running.

parent f9155ea0
......@@ -2568,6 +2568,13 @@ nil, indicating the current buffer's process.")
Lisp_Object proc;
proc = get_process (process);
/* Make sure the process is really alive. */
if (! NILP (XPROCESS (proc)->raw_status_low))
update_status (XPROCESS (proc));
if (! EQ (XPROCESS (proc)->status, Qrun))
error ("Process %s not running", procname);
/* Sending a zero-length record is supposed to mean eof
when TIOCREMOTE is turned on. */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment