diff options
| author | Michael Albinus | 2025-02-13 11:21:30 +0100 |
|---|---|---|
| committer | Michael Albinus | 2025-02-13 11:21:30 +0100 |
| commit | 167157fc210ae078e683c80dc650e6a2bb5a6050 (patch) | |
| tree | c8e44699308774f94e415f9fe48cf9bc63f56e29 | |
| parent | 6967587daef027b0f4fd917b5181b43e45c7cb56 (diff) | |
| download | emacs-167157fc210ae078e683c80dc650e6a2bb5a6050.tar.gz emacs-167157fc210ae078e683c80dc650e6a2bb5a6050.zip | |
* lisp/net/tramp-archive.el (tramp-archive-all-gvfs-methods): Use `cdadr'.
| -rw-r--r-- | lisp/net/tramp-archive.el | 2 |
1 files changed, 1 insertions, 1 deletions
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).") | |||
| 209 | 209 | ||
| 210 | (defconst tramp-archive-all-gvfs-methods | 210 | (defconst tramp-archive-all-gvfs-methods |
| 211 | (cons tramp-archive-method | 211 | (cons tramp-archive-method |
| 212 | (let ((values (cdr (cadr (get 'tramp-gvfs-methods 'custom-type))))) | 212 | (let ((values (cdadr (get 'tramp-gvfs-methods 'custom-type)))) |
| 213 | (setq values (mapcar #'last values) | 213 | (setq values (mapcar #'last values) |
| 214 | values (mapcar #'car values)))) | 214 | values (mapcar #'car values)))) |
| 215 | "List of all methods `tramp-gvfs-methods' offers.") | 215 | "List of all methods `tramp-gvfs-methods' offers.") |