🚀 go-pugleaf

Hacking a process.c bit more I also got emacs to stop thinking that 
sending a ^D down a pipe was the same as generating an EOF condition.

diff started at Thu Jul  4 19:10:28
cd /usr/local/emacs/src/
diff -c process.c.~1~ process.c
*** process.c.~1~	Tue Jan 15 20:28:48 1991
--- process.c	Thu Jul  4 15:18:57 1991
***************
*** 1908,1914 ****
  	if (rv < 0)
  	  {
  #ifdef EWOULDBLOCK
! 	    if (errno == EWOULDBLOCK)
  	      {
  		/* It would be nice to accept process output here,
  		   but that is difficult.  For example, it could
--- 1908,1914 ----
  	if (rv < 0)
  	  {
  #ifdef EWOULDBLOCK
! 	    if ((errno == EWOULDBLOCK) || errno == EAGAIN)
  	      {
  		/* It would be nice to accept process output here,
  		   but that is difficult.  For example, it could
***************
*** 2137,2143 ****
      write (XFASTINT (XPROCESS (proc)->outfd), buf, 0);
    }
  #else /* did not do TOICREMOTE */
!   send_process (proc, "\004", 1);
  #endif /* did not do TOICREMOTE */
    return process;
  }
--- 2137,2162 ----
      write (XFASTINT (XPROCESS (proc)->outfd), buf, 0);
    }
  #else /* did not do TOICREMOTE */
!   /*
!    * wrong. ^D is not EOF. -wsr
!    * send_process (proc, "\004", 1);
!    */
!    {
!        struct Lisp_Process *p = XPROCESS (proc);
!        int outchannel = XFASTINT (p->outfd);
! 
!
!        if (outchannel && (outchannel == XFASTINT (p->infd)))
!        {
! 	   send_process (proc, "\004", 1); /* AAAAARRRRRGGGG! */
!        } else
!
!        if (outchannel)
!        {
! 	   close(outchannel);
! 	   XFASTINT (p->outfd) = 0;
!        }
!    }
  #endif /* did not do TOICREMOTE */
    return process;
  }

diff exited abnormally with code 1 at Thu Jul  4 19:10:29

-wolfgang
---
Wolfgang Rupprecht    wolfgang@wsrcc.com (or) uunet!wsrcc!wolfgang
Snail Mail Address:   Box 6524, Alexandria, VA 22306-0524