From 688e92426bfa2c5f21bd2ab7a1361c8febf2ca90 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 27 Jan 2020 13:36:00 +0100 Subject: [PATCH] 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 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 -- 2.39.2