diff options
| author | Michael Albinus | 2023-04-27 19:41:18 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-04-27 19:41:18 +0200 |
| commit | dbd74657908e67e2a5001fbe440fb2a01a2f01af (patch) | |
| tree | ba0dd278f62e71bf860d478e7d78ea9173bf02f1 | |
| parent | 98006bfd09cf0bbec5ade924e1a60c48b16701a1 (diff) | |
| download | emacs-dbd74657908e67e2a5001fbe440fb2a01a2f01af.tar.gz emacs-dbd74657908e67e2a5001fbe440fb2a01a2f01af.zip | |
Fix thinko in tramp-gvfs-maybe-open-connection
* lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
Use `assoc-default'.
| -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." | |||
| 2183 | ;; Sanity check. | 2183 | ;; Sanity check. |
| 2184 | (let ((method (tramp-file-name-method vec))) | 2184 | (let ((method (tramp-file-name-method vec))) |
| 2185 | (unless (member | 2185 | (unless (member |
| 2186 | (or (rassoc method '(("smb" . "smb-share") | 2186 | (or (assoc-default |
| 2187 | ("davs" . "dav") | 2187 | method '(("smb" . "smb-share") |
| 2188 | ("nextcloud" . "dav") | 2188 | ("davs" . "dav") |
| 2189 | ("afp". "afp-volume") | 2189 | ("nextcloud" . "dav") |
| 2190 | ("gdrive" . "google-drive"))) | 2190 | ("afp". "afp-volume") |
| 2191 | ("gdrive" . "google-drive"))) | ||
| 2191 | method) | 2192 | method) |
| 2192 | tramp-gvfs-mounttypes) | 2193 | tramp-gvfs-mounttypes) |
| 2193 | (tramp-error vec 'file-error "Method `%s' not supported by GVFS" method))) | 2194 | (tramp-error vec 'file-error "Method `%s' not supported by GVFS" method))) |