[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113106: * comint.el (comint-redirect-results-list-f
From: |
Leo Liu |
Subject: |
[Emacs-diffs] trunk r113106: * comint.el (comint-redirect-results-list-from-process): Fix |
Date: |
Fri, 21 Jun 2013 01:23:29 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113106: * comint.el (comint-redirect-results-list-from-process): Fix,
Leo Liu <=