master dbd74657908 2/2: Fix thinko in tramp-gvfs-maybe-open-connection

[Michael Albinus]

branch: master
commit dbd74657908e67e2a5001fbe440fb2a01a2f01af
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

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