From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 21 Dec 2024 17:12:45 +0000 (+0100)
Subject: * lisp/net/tramp-gvfs.el (tramp-gvfs-local-file-name): New defun.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8448b43595b4e0576658319ec2a9faa104af01ad;p=emacs.git

* lisp/net/tramp-gvfs.el (tramp-gvfs-local-file-name): New defun.

(cherry picked from commit e59e7278924cd0dca49d4333dba188530721f5a3)
---

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 9895777919f..189a061a323 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1770,6 +1770,24 @@ a downcased host name only."
        (string-match (rx bol (+ alnum) "://" (group (+ (not (any "/:"))))) url)
        (match-string 1 url)))
 
+;; This is used in GNU ELPA package tramp-locproc.el.
+(defun tramp-gvfs-local-file-name (filename)
+  "Return local mount name of FILENAME."
+  (setq filename (file-name-unquote (expand-file-name filename)))
+  (with-parsed-tramp-file-name filename nil
+    (with-tramp-file-property v localname "local-file-name"
+      ;; As long as we call `tramp-gvfs-maybe-open-connection' here,
+      ;; we cache the result.
+      (tramp-gvfs-maybe-open-connection v)
+      (let ((quoted (file-name-quoted-p localname))
+	    (localname (file-name-unquote localname)))
+	(funcall
+	 (if quoted #'file-name-quote #'identity)
+	 (expand-file-name
+	  (if (file-name-absolute-p localname)
+	      (substring localname 1) localname)
+	  (tramp-get-file-property v "/" "fuse-mountpoint")))))))
+
 
 ;; D-Bus GVFS functions.