From: Michael Albinus Date: Thu, 13 Feb 2025 10:21:30 +0000 (+0100) Subject: * lisp/net/tramp-archive.el (tramp-archive-all-gvfs-methods): Use `cdadr'. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20cdd5dac9e055348795e475736bc07d2faba091;p=emacs.git * 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 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.")