procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set `default-directory' of Tramp archive connection buffer

Browse source 
* lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
Set `default-directory' of Tramp connection buffer.  (Bug#56628)
This commit is contained in:
Michael Albinus 2022-07-23 19:45:24 +02:00
parent 2529e82002
commit b4067394dc
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/net/tramp-archive.el
View file

@ -339,6 +339,13 @@ arguments to pass to the OPERATION."
(tramp-archive-run-real-handler (tramp-archive-run-real-handler
#'file-directory-p (list archive))) #'file-directory-p (list archive)))
(tramp-archive-run-real-handler operation args) (tramp-archive-run-real-handler operation args)
;; The default directory of the Tramp connection buffer
;; cannot be accessed. (Bug#56628)
;; FIXME: It is superfluous to set it every single loop.
;; But there is no place to set it when creating the buffer.
(with-current-buffer
(tramp-get-buffer (tramp-archive-dissect-file-name filename))
(setq default-directory (file-name-as-directory archive)))
;; Now run the handler. ;; Now run the handler.
(let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods)) (let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods))
(tramp-gvfs-methods tramp-archive-all-gvfs-methods) (tramp-gvfs-methods tramp-archive-all-gvfs-methods)