diff options
| -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) |