From 00fb3e95ef7621b8900b5d52d5b8a92aa8db1907 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 17 Sep 1994 05:30:39 +0000
Subject: [PATCH] (Fcall_process) [__osf__ && __alpha]: Don't stop reading if
 read returns negative.

---
 src/callproc.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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);
-- 
2.39.5