master 688e924: Fix Bug#39253

[Michael Albinus]

branch: master
commit 688e92426bfa2c5f21bd2ab7a1361c8febf2ca90
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Fix Bug#39253
    
    * lisp/net/tramp.el (tramp-handle-shell-command): Set `default-directory'.
---
 lisp/net/tramp.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e5bb094..131681a 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