From 20cdd5dac9e055348795e475736bc07d2faba091 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 13 Feb 2025 11:21:30 +0100 Subject: [PATCH] * lisp/net/tramp-archive.el (tramp-archive-all-gvfs-methods): Use `cdadr'. (cherry picked from commit 167157fc210ae078e683c80dc650e6a2bb5a6050) --- lisp/net/tramp-archive.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index 03b1c001d0f..9df2b657e91 100644 --- 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.") -- 2.39.5