* lisp/net/tramp-archive.el (tramp-archive-all-gvfs-methods): Use `cdadr'.

(cherry picked from commit 167157fc210ae078e683c80dc650e6a2bb5a6050)

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 03b1c001d0fe86f4eb29d719ada486920681c3cc..9df2b657e91ddea4a78dcb0d66daffd3813c0d08 100644 (file)
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -209,7 +209,7 @@ It must be supported by libarchive(3).")
 
 (defconst tramp-archive-all-gvfs-methods
   (cons tramp-archive-method
-       (let ((values (cdr (cadr (get 'tramp-gvfs-methods 'custom-type)))))
+       (let ((values (cdadr (get 'tramp-gvfs-methods 'custom-type))))
          (setq values (mapcar #'last values)
                values (mapcar #'car values))))
   "List of all methods `tramp-gvfs-methods' offers.")