[Emacs-diffs] trunk r113106: * comint.el (comint-redirect-results-list-from-process): Fix

[Leo Liu]

------------------------------------------------------------
revno: 113106
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14681
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-21 09:21:15 +0800
message:
  * comint.el (comint-redirect-results-list-from-process): Fix
  random delay.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/comint.el                 comint.el-20091113204419-o5vbwnq5f7feedwu-149

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-21 00:53:33 +0000
+++ b/lisp/ChangeLog    2013-06-21 01:21:15 +0000
@@ -1,3 +1,8 @@
+2013-06-21  Leo Liu  <address@hidden>
+
+       * comint.el (comint-redirect-results-list-from-process): Fix
+       random delay.  (Bug#14681)
+
 2013-06-21  Juanma Barranquero  <address@hidden>
 
        * profiler.el (profiler-format-number): Use log, not log10.

=== modified file 'lisp/comint.el'
--- a/lisp/comint.el    2013-05-25 02:40:33 +0000
+++ b/lisp/comint.el    2013-06-21 01:21:15 +0000
@@ -3725,8 +3725,8 @@
                                               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))