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 3e6c483a47f30b525673da43f565b2d521aa2beb..f77dcec3663331b891ddbeb6b19149dcc72f9cb7 100644 (file)
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -426,6 +426,7 @@ arguments to pass to the OPERATION."
 \f
 ;; 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)))
+
 \f
 ;; File name primitives.