mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues 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. ;; Sanity check.
(let ((method (tramp-file-name-method vec))) (let ((method (tramp-file-name-method vec)))
(unless (member (unless (member
(or (rassoc method '(("smb" . "smb-share") (or (assoc-default
("davs" . "dav") method '(("smb" . "smb-share")
("nextcloud" . "dav") ("davs" . "dav")
("afp". "afp-volume") ("nextcloud" . "dav")
("gdrive" . "google-drive"))) ("afp". "afp-volume")
("gdrive" . "google-drive")))
method) method)
tramp-gvfs-mounttypes) tramp-gvfs-mounttypes)
(tramp-error vec 'file-error "Method `%s' not supported by GVFS" method))) (tramp-error vec 'file-error "Method `%s' not supported by GVFS" method)))