# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1172744261 0
# Node ID 9e2414dc2556bcba6ddc58013bf836f2798b8b8e
# Parent  d3c5626daefb059b9c0c17cde98448d5d58cef17
(send_process_object): Check the process status and
signal an error if something is wrong.

diff -r d3c5626daefb -r 9e2414dc2556 src/process.c
--- a/src/process.c	Thu Mar 01 10:01:32 2007 +0000
+++ b/src/process.c	Thu Mar 01 10:17:41 2007 +0000
@@ -5694,8 +5694,16 @@
       : ! NILP (XBUFFER (object)->enable_multibyte_characters))
     {
       struct Lisp_Process *p = XPROCESS (proc);
-      struct coding_system *coding = proc_encode_coding_system[XINT (p->outfd)];
-
+      struct coding_system *coding;
+
+      if (p->raw_status_new)
+	update_status (p);
+      if (! EQ (p->status, Qrun))
+	error ("Process %s not running", SDATA (p->name));
+      if (XINT (p->outfd) < 0)
+	error ("Output file descriptor of %s is closed", SDATA (p->name));
+
+      coding = proc_encode_coding_system[XINT (p->outfd)];
       if (! EQ (coding->symbol, p->encode_coding_system))
 	/* The coding system for encoding was changed to raw-text
 	   because we sent a unibyte text previously.  Now we are