From: Kim F. Storm <storm@cua.dk>
Date: Tue, 6 Jan 2004 23:34:45 +0000 (+0000)
Subject: (read_process_output): Only activate adaptive
X-Git-Tag: ttn-vms-21-2-B4~7986
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05b72afdefbb1c285a9bb2dda7e77610f86cccb6;p=emacs.git

(read_process_output): Only activate adaptive
buffering if we read less than 256 bytes at a time.
---

diff --git a/src/process.c b/src/process.c
index 3cb63de1584..315b31b728f 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4771,7 +4771,7 @@ read_process_output (proc, channel)
       if (!NILP (p->adaptive_read_buffering))
 	{
 	  int delay = XINT (p->read_output_delay);
-	  if (nbytes < readmax - carryover)
+	  if (nbytes < 256)
 	    {
 	      if (delay < READ_OUTPUT_DELAY_MAX_MAX)
 		{
@@ -4780,7 +4780,7 @@ read_process_output (proc, channel)
 		  delay += READ_OUTPUT_DELAY_INCREMENT * 2;
 		}
 	    }
-	  else if (delay > 0)
+	  else if (delay > 0 && (nbytes == readmax - carryover))
 	    {
 	      delay -= READ_OUTPUT_DELAY_INCREMENT;
 	      if (delay == 0)