(send_process_object): Check the process status and
signal an error if something is wrong.
This commit is contained in:
parent
e4ddce5a20
commit
faa6ce91bf
2 changed files with 14 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue