diff options
Diffstat (limited to 'lisp/net/tramp-archive.el')
| -rw-r--r-- | lisp/net/tramp-archive.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index 21a1e94e418..9ff5d6ac75d 100644 --- a/lisp/net/tramp-archive.el +++ b/lisp/net/tramp-archive.el @@ -184,17 +184,18 @@ It must be supported by libarchive(3).") ;;;###autoload (progn (defmacro tramp-archive-autoload-file-name-regexp () "Regular expression matching archive file names." - '(rx bos - ;; This group is used in `tramp-archive-file-name-archive'. - (group - (+ nonl) - ;; Default suffixes ... - "." (regexp (regexp-opt tramp-archive-suffixes)) - ;; ... with compression. - (? "." (regexp (regexp-opt tramp-archive-compression-suffixes)))) - ;; This group is used in `tramp-archive-file-name-localname'. - (group "/" (* nonl)) - eos))) + `(rx + bos + ;; This group is used in `tramp-archive-file-name-archive'. + (group + (+ nonl) + ;; Default suffixes ... + "." ,(cons '| tramp-archive-suffixes) + ;; ... with compression. + (? "." ,(cons '| tramp-archive-compression-suffixes))) + ;; This group is used in `tramp-archive-file-name-localname'. + (group "/" (* nonl)) + eos))) (put #'tramp-archive-autoload-file-name-regexp 'tramp-autoload t) |