emacs-31 9ab1aa887ab: Ensure, that `buffer-file-name' is expanded in tramp-archive

branch: emacs-31
commit 9ab1aa887abdb6035c02f96b084f0fcaaa2b60d9
Author: Michael Albinus <[email protected]>
Commit: Michael Albinus <[email protected]>

    Ensure, that `buffer-file-name' is expanded in tramp-archive
    
    * lisp/net/tramp-archive.el (tramp-archive-handle-insert-file-contents):
    Ensure, that `buffer-file-name' is expanded.
---
 lisp/net/tramp-archive.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index e970fd1cd56..2c7a65b375f 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -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)