diff options
| author | Michael Albinus | 2020-04-11 09:08:54 +0200 |
|---|---|---|
| committer | Michael Albinus | 2020-04-11 09:08:54 +0200 |
| commit | aa072db86b6b06b54d7f5846231bdf4a73b0cd84 (patch) | |
| tree | cad2d70d91a7cf6c173580637ddcac475e97aa7d | |
| parent | e18c24b35a7cf9bb1b91288b706fa448ed28a7c2 (diff) | |
| download | emacs-aa072db86b6b06b54d7f5846231bdf4a73b0cd84.tar.gz emacs-aa072db86b6b06b54d7f5846231bdf4a73b0cd84.zip | |
* lisp/net/tramp.el (tramp-action-process-alive): Read pending output.
| -rw-r--r-- | lisp/net/tramp.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index e30f27fd338..a16085d7fb0 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -4074,6 +4074,8 @@ The terminal type can be configured with `tramp-terminal-type'." | |||
| 4074 | (defun tramp-action-process-alive (proc _vec) | 4074 | (defun tramp-action-process-alive (proc _vec) |
| 4075 | "Check, whether a process has finished." | 4075 | "Check, whether a process has finished." |
| 4076 | (unless (process-live-p proc) | 4076 | (unless (process-live-p proc) |
| 4077 | ;; There might be pending output. | ||
| 4078 | (while (tramp-accept-process-output proc 0)) | ||
| 4077 | (throw 'tramp-action 'process-died))) | 4079 | (throw 'tramp-action 'process-died))) |
| 4078 | 4080 | ||
| 4079 | (defun tramp-action-out-of-band (proc vec) | 4081 | (defun tramp-action-out-of-band (proc vec) |