From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 1994 05:30:39 +0000 (+0000)
Subject: (Fcall_process) [__osf__ && __alpha]:
X-Git-Tag: emacs-19.34~7001
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00fb3e95ef7621b8900b5d52d5b8a92aa8db1907;p=emacs.git

(Fcall_process) [__osf__ && __alpha]:
Don't stop reading if read returns negative.
---

diff --git a/src/callproc.c b/src/callproc.c
index 1da4b4d5781..0881ed98884 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -427,8 +427,16 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     register int nread;
     int first = 1;
 
-    while ((nread = read (fd[0], buf, sizeof buf)) > 0)
+    while ((nread = read (fd[0], buf, sizeof buf)) != 0)
       {
+	if (nread < 0)
+	  {
+#if defined (__osf__) && defined (__alpha)
+	    continue;		/* Work around bug in DEC OSF/1 V3.0.  */
+#else
+	    break;
+#endif
+	  }
 	immediate_quit = 0;
 	if (!NILP (buffer))
 	  insert (buf, nread);