(Fprocess_send_eof): Make sure proc is running.

577d03d5 · Richard M. Stallman · f9155ea0 · 577d03d5
Commit 577d03d5 authored Mar 17, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

src/process.c src/process.c +7 -0

No files found.
--- a/src/process.c
+++ b/src/process.c
@@ -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.  */
 #ifdef DID_REMOTE