[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 b4067394dc: Set `default-directory' of Tramp archive connection
From: |
Michael Albinus |
Subject: |
emacs-28 b4067394dc: Set `default-directory' of Tramp archive connection buffer |
Date: |
Sat, 23 Jul 2022 13:45:35 -0400 (EDT) |
branch: emacs-28
commit b4067394dcf33d64e0372bf553cec5b6f9c4af1c
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Set `default-directory' of Tramp archive connection buffer
* lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
Set `default-directory' of Tramp connection buffer. (Bug#56628)
---
lisp/net/tramp-archive.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 4b649edaab..33348ca21e 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -339,6 +339,13 @@ arguments to pass to the OPERATION."
(tramp-archive-run-real-handler
#'file-directory-p (list archive)))
(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.
(let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods))
(tramp-gvfs-methods tramp-archive-all-gvfs-methods)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 b4067394dc: Set `default-directory' of Tramp archive connection buffer,
Michael Albinus <=