mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
* lisp/net/tramp-archive.el (tramp-archive-all-gvfs-methods): Use `cdadr'.
This commit is contained in:
parent
6967587dae
commit
167157fc21
1 changed files with 1 additions and 1 deletions
|
|
@ -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.")
|
||||
|
|
|
|||
Loading…
Reference in a new issue