From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 27 Apr 2023 17:41:18 +0000 (+0200)
Subject: Fix thinko in tramp-gvfs-maybe-open-connection
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dbd74657908e67e2a5001fbe440fb2a01a2f01af;p=emacs.git

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

* lisp/net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
Use `assoc-default'.
---

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)))