diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-06-21 09:21:15 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-06-21 09:21:15 +0800 |
| commit | b7deae5ee6af8b0f9343344c1bfdaa7c36467f28 (patch) | |
| tree | 5ae8429c02769b311a44bdc1be462aa17d5fc085 /lisp/comint.el | |
| parent | 6b4914d244b2d3c3c216c368c20305c365e9ad98 (diff) | |
| download | emacs-b7deae5ee6af8b0f9343344c1bfdaa7c36467f28.tar.gz | |
* comint.el (comint-redirect-results-list-from-process): Fix
random delay.
Fixes: debbugs:14681
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |