martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix thinko in tramp-gvfs-maybe-open-connection

Browse Source 
* lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
Use `assoc-default'.
This commit is contained in:
Michael Albinus
2023-04-27 19:41:18 +02:00
parent 98006bfd09
commit dbd7465790
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/net/tramp-gvfs.el
View File

@@ -2183,11 +2183,12 @@ connection if a previous connection has died for some reason."
;; Sanity check.
(let ((method (tramp-file-name-method vec)))
(unless (member
(or (rassoc method '(("smb" . "smb-share")
("davs" . "dav")
("nextcloud" . "dav")
("afp". "afp-volume")
("gdrive" . "google-drive")))
(or (assoc-default
method '(("smb" . "smb-share")
("davs" . "dav")
("nextcloud" . "dav")
("afp". "afp-volume")
("gdrive" . "google-drive")))
method)
tramp-gvfs-mounttypes)
(tramp-error vec 'file-error "Method `%s' not supported by GVFS" method)))