(send_process_object): Check the process status and

signal an error if something is wrong.

diff --git a/src/ChangeLog b/src/ChangeLog
index b2b2bf2..afb6ce8 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-01  Kenichi Handa  <handa@m17n.org>
+
+       * process.c (send_process_object): Check the process status and
+       signal an error if something is wrong.
+
 2007-02-28  Chong Yidong  <cyd@stupidchicken.com>
 
        * insdel.c (Fcombine_after_change_execute): Return nil if

diff --git a/src/process.c b/src/process.c
index 7f651e3..78fc400 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -5694,8 +5694,16 @@ send_process_object (proc, start, end)
       : ! 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