From dbd74657908e67e2a5001fbe440fb2a01a2f01af Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 27 Apr 2023 19:41:18 +0200 Subject: [PATCH] Fix thinko in tramp-gvfs-maybe-open-connection * lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection): Use `assoc-default'. --- lisp/net/tramp-gvfs.el | 11 ++++++----- 1 file 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))) -- 2.39.5