Fix Bug#39253

* lisp/net/tramp.el (tramp-handle-shell-command): Set `default-directory'.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e5bb094bbd5..131681a8fdc 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3618,6 +3618,7 @@ support symbolic links."
   (let* ((asynchronous (string-match-p "[ \t]*&[ \t]*\\'" command))
          (command (substring command 0 asynchronous))
          current-buffer-p
+         (output-buffer-p output-buffer)
          (output-buffer
           (cond
            ((bufferp output-buffer) output-buffer)
@@ -3635,6 +3636,7 @@ support symbolic links."
            ((stringp error-buffer) (get-buffer-create error-buffer))))
          (bname (buffer-name output-buffer))
          (p (get-buffer-process output-buffer))
+         (dir default-directory)
          buffer)
 
     ;; The following code is taken from `shell-command', slightly
@@ -3671,6 +3673,10 @@ support symbolic links."
           (rename-uniquely))
         (setq output-buffer (get-buffer-create bname)))))
 
+    (unless output-buffer-p
+      (with-current-buffer output-buffer
+        (setq default-directory dir)))
+
     (setq buffer (if error-buffer
                      (with-parsed-tramp-file-name default-directory nil
                        (list output-buffer