Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Implement abbreviate-file-name in Tramp for Google drive

Browse source 
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-get-home-directory):
Implement for Google drive.
This commit is contained in:
Michael Albinus 2022-03-08 17:28:30 +01:00
parent 6dc51d4cca
commit ed543ca3e0
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/net/tramp-gvfs.el
View file

@ -1604,10 +1604,20 @@ If USER is a string, return its home directory instead of the
user identified by VEC. If there is no user specified in either
VEC or USER, or if there is no home directory, return nil."
(let ((localname
(tramp-get-connection-property vec "default-location" nil)))
(if (zerop (length localname))
(tramp-get-connection-property (tramp-get-process vec) "share" nil)
localname)))
(tramp-get-connection-property vec "default-location" nil))
result)
(cond
((zerop (length localname))
(tramp-get-connection-property (tramp-get-process vec) "share" nil))
;; Google-drive.
((not (string-prefix-p "/" localname))
(dolist (item
(tramp-gvfs-get-directory-attributes
(tramp-make-tramp-file-name vec "/"))
result)
(when (string-equal (cdr (assoc "name" item)) localname)
(setq result (concat "/" (car item))))))
(t localname))))
(defun tramp-gvfs-handle-get-remote-uid (vec id-format)
"The uid of the remote connection VEC, in ID-FORMAT.