1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00

* lisp/net/tramp.el (tramp-action-process-alive): Read pending output.

This commit is contained in:
Michael Albinus 2020-04-11 09:08:54 +02:00
parent e18c24b35a
commit aa072db86b

View File

@ -4074,6 +4074,8 @@ The terminal type can be configured with `tramp-terminal-type'."
(defun tramp-action-process-alive (proc _vec)
"Check, whether a process has finished."
(unless (process-live-p proc)
;; There might be pending output.
(while (tramp-accept-process-output proc 0))
(throw 'tramp-action 'process-died)))
(defun tramp-action-out-of-band (proc vec)