Mercurial > emacs

diff src/process.c @ 2221:7edc78402205

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fprocess_send_eof): Make sure proc is running.
author Richard M. Stallman <rms@gnu.org>
date Wed, 17 Mar 1993 07:59:09 +0000
parents 5e58643bb169
children d81c60c5f9ce
line wrap: on
line diff
--- a/src/process.c	Tue Mar 16 22:49:00 1993 +0000
+++ b/src/process.c	Wed Mar 17 07:59:09 1993 +0000
@@ -2568,6 +2568,13 @@
   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