X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fprocess-unix.c;fp=src%2Fprocess-unix.c;h=00bb1638c9b826a3f721b3a2bd9e336eaaf810da;hb=dbf2768f7b146e97e37a27316f70bb313f1acf15;hp=c0d1989f9a6ca2811e98025200402f6f621d9ed9;hpb=042cabb13b0419d8aa5cfac9e087d78730d1dbc7;p=chise%2Fxemacs-chise.git

diff --git a/src/process-unix.c b/src/process-unix.c
index c0d1989..00bb163 100644
--- a/src/process-unix.c
+++ b/src/process-unix.c
@@ -1331,12 +1331,15 @@ unix_send_process (Lisp_Object proc, struct lstream* lstream)
       /* #### There is controversy over whether this might cause fd leakage */
       /*      my tests say no. -slb */
       XLSTREAM (p->pipe_outstream)->flags &= ~LSTREAM_FL_IS_OPEN;
+#ifdef FILE_CODING
+      XLSTREAM (p->coding_outstream)->flags &= ~LSTREAM_FL_IS_OPEN;
+#endif
       p->status_symbol = Qexit;
       p->exit_code = 256; /* #### SIGPIPE ??? */
       p->core_dumped = 0;
       p->tick++;
       process_tick++;
-      deactivate_process (*((Lisp_Object *) (&vol_proc)));
+      deactivate_process (vol_proc);
       invalid_operation ("SIGPIPE raised on process; closed it", p->name);
     }