From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 28 Dec 2024 14:53:08 +0000 (+0100)
Subject: Add tramp-archive-local-file-name
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73784e64ca5dfc0d8a1163d4619151ff96810153;p=emacs.git

Add tramp-archive-local-file-name

* lisp/net/tramp-archive.el (tramp-archive-file-name-p):
Add ;;;###tramp-autoload cookie.
(tramp-archive-local-file-name): New defun.

(cherry picked from commit e32484547d0813665334bfd34b741492dde0d374)
---

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 3e6c483a47f..f77dcec3663 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -426,6 +426,7 @@ arguments to pass to the OPERATION."
 
 ;; File name conversions.
 
+;;;###tramp-autoload
 (defun tramp-archive-file-name-p (name)
   "Return t if NAME is a string with archive file name syntax."
   (and (stringp name)
@@ -581,6 +582,11 @@ offered."
   "Return NAME in GVFS syntax."
   (tramp-make-tramp-file-name (tramp-archive-dissect-file-name name)))
 
+;; This is used in GNU ELPA package tramp-locproc.el.
+(defun tramp-archive-local-file-name (filename)
+  "Return local mount name of FILENAME."
+  (tramp-gvfs-local-file-name (tramp-archive-gvfs-file-name filename)))
+
 
 ;; File name primitives.