diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-04-27 19:41:18 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-04-27 19:41:18 +0200 |
| commit | dbd74657908e67e2a5001fbe440fb2a01a2f01af (patch) | |
| tree | ba0dd278f62e71bf860d478e7d78ea9173bf02f1 /lisp | |
| parent | 98006bfd09cf0bbec5ade924e1a60c48b16701a1 (diff) | |
| download | emacs-dbd74657908e67e2a5001fbe440fb2a01a2f01af.tar.gz | |
Fix thinko in tramp-gvfs-maybe-open-connection
* lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
Use `assoc-default'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index ad7b1ff054c..859f4870b80 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -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))) |