Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix Bug#39253

Browse source 
* lisp/net/tramp.el (tramp-handle-shell-command): Set `default-directory'.
This commit is contained in:
Michael Albinus 2020-01-27 13:36:00 +01:00
parent e1c93a02dd
commit 688e92426b
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/tramp.el
View file

@ -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