emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ensure, that `buffer-file-name' is expanded in tramp-archive

Browse source 
* lisp/net/tramp-archive.el (tramp-archive-handle-insert-file-contents):
Ensure, that `buffer-file-name' is expanded.
This commit is contained in:
Michael Albinus 2026-07-05 09:27:30 +02:00
parent 4721a44e8a
commit 9ab1aa887a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -710,11 +710,12 @@ offered."
(defun tramp-archive-handle-insert-file-contents
(filename &optional visit beg end replace)
"Like `insert-file-contents' for file archives."
(setq filename (expand-file-name filename))
(let ((result
(insert-file-contents
(tramp-archive-gvfs-file-name filename) visit beg end replace)))
(when visit (setq buffer-file-name filename))
(cons (expand-file-name filename) (cdr result))))
(cons filename (cdr result))))
(defun tramp-archive-handle-load
(file &optional noerror nomessage nosuffix must-suffix)