From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 21 Jun 2013 01:21:15 +0000 (+0800)
Subject: * comint.el (comint-redirect-results-list-from-process): Fix
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7deae5ee6af8b0f9343344c1bfdaa7c36467f28;p=emacs.git

* comint.el (comint-redirect-results-list-from-process): Fix
random delay.

Fixes: debbugs:14681
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5811fd1b0b2..e4c67dde1d9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-21  Leo Liu  <sdl.web@gmail.com>
+
+	* comint.el (comint-redirect-results-list-from-process): Fix
+	random delay.  (Bug#14681)
+
 2013-06-21  Juanma Barranquero  <lekktu@gmail.com>
 
 	* profiler.el (profiler-format-number): Use log, not log10.
diff --git a/lisp/comint.el b/lisp/comint.el
index 592f63fa683..c1a1c56f78a 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -3725,8 +3725,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use."
 					       output-buffer process nil t)
       ;; Wait for the process to complete
       (set-buffer (process-buffer process))
-      (while (null comint-redirect-completed)
-	(accept-process-output nil 1))
+      (while (and (null comint-redirect-completed)
+		  (accept-process-output process)))
       ;; Collect the output
       (set-buffer output-buffer)
       (goto-char (point-min))