1 files changed, 12 insertions, 10 deletions

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 6e5b9d243fb..4ca1f651734 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2806,6 +2806,8 @@ the result will be a local, non-Tramp, file name."
 ;; We use BUFFER also as connection buffer during setup. Because of
 ;; this, its original contents must be saved, and restored once
 ;; connection has been setup.
+;; The complete STDERR buffer is available only when the process has
+;; terminated.
 (defun tramp-sh-handle-make-process (&rest args)
   "Like `make-process' for Tramp files.
 STDERR can also be a file name."
@@ -2855,6 +2857,8 @@ STDERR can also be a file name."
                      (if (and (stringp stderr) (tramp-tramp-file-p stderr))
                          (tramp-unquote-file-local-name stderr)
                        (tramp-make-tramp-temp-file v))))
+               (remote-tmpstderr
+                (and tmpstderr (tramp-make-tramp-file-name v tmpstderr)))
                (program (car command))
                (args (cdr command))
                ;; When PROGRAM matches "*sh", and the first arg is
@@ -2994,24 +2998,22 @@ STDERR can also be a file name."
                         (add-function
                          :after (process-sentinel p)
                          (lambda (_proc _msg)
-                           (rename-file
-                            (tramp-make-tramp-file-name v tmpstderr) stderr))))
+                           (rename-file remote-tmpstderr stderr))))
                       ;; Provide error buffer.  This shows only
                       ;; initial error messages; messages arriving
-                      ;; later on shall be inserted by `auto-revert'.
-                      ;; The temporary file will exist until the
-                      ;; process is deleted.
+                      ;; later on will be inserted when the process is
+                      ;; deleted.  The temporary file will exist until
+                      ;; the process is deleted.
                       (when (bufferp stderr)
                         (with-current-buffer stderr
-                          (insert-file-contents
-                           (tramp-make-tramp-file-name v tmpstderr) 'visit)
-                          (auto-revert-mode))
+                          (insert-file-contents remote-tmpstderr 'visit))
                         ;; Delete tmpstderr file.
                         (add-function
                          :after (process-sentinel p)
                          (lambda (_proc _msg)
-                           (delete-file
-                            (tramp-make-tramp-file-name v tmpstderr)))))
+                           (with-current-buffer stderr
+                             (insert-file-contents remote-tmpstderr 'visit))
+                           (delete-file remote-tmpstderr))))
                       ;; Return process.
                       p)))