master e32484547d0: Add tramp-archive-local-file-name

[Michael Albinus]

branch: master
commit e32484547d0813665334bfd34b741492dde0d374
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    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.
---
 lisp/net/tramp-archive.el | 6 ++++++
 1 file changed, 6 insertions(+)

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.