diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-25 03:05:27 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-25 03:05:27 +0200 |
| commit | f9071a23a986dcb4ea0ab72395f88daeef357cf3 (patch) | |
| tree | 544fc74353808b1481ce6eb53d9f19b838c1d981 /lisp/jka-cmpr-hook.el | |
| parent | 7a7235899429d5adaec92d7184208db53448d81a (diff) | |
| download | emacs-f9071a23a986dcb4ea0ab72395f88daeef357cf3.tar.gz | |
Use gzip to uncompess .xz files on MacOS
* lisp/jka-cmpr-hook.el (jka-compr-compression-info-list): Use
gzip to uncompess .xz files on MacOS (bug#29235).
Diffstat (limited to 'lisp/jka-cmpr-hook.el')
| -rw-r--r-- | lisp/jka-cmpr-hook.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index 6933a7c1d06..ed00caedb51 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el @@ -203,7 +203,7 @@ options through Custom does this automatically." ;; can-append strip-extension-flag file-magic-bytes ;; uncompress-function] (mapcar 'purecopy - '(["\\.Z\\'" + `(["\\.Z\\'" "compressing" "compress" ("-c") ;; gzip is more common than uncompress. It can only read, not write. "uncompressing" "gzip" ("-c" "-q" "-d") @@ -239,7 +239,8 @@ options through Custom does this automatically." "LZMA uncompressing" "lzma" ("-c" "-q" "-d") t t ""] ["\\.xz\\'" - "XZ compressing" "xz" ("-c" "-q") + ;; On MacOS, gzip can uncompress xz files. + "XZ compressing" ,(if (featurep 'ns) "gzip" "xz") ("-c" "-q") "XZ uncompressing" "xz" ("-c" "-q" "-d") t t "\3757zXZ\0"] ["\\.txz\\'" |