From c10e06335efc44a628996547291c7b82b7ffe17a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 23 Nov 2009 00:32:37 +0000 Subject: [PATCH] Sven Joachim (dired-guess-shell-alist-default): Support xz format. (Bug#4953) --- lisp/ChangeLog | 5 +++++ lisp/dired-x.el | 11 +++++++++++ 2 files changed, 16 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b39254f2d3..797e258b339 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-23 Sven Joachim + + * dired-x.el (dired-guess-shell-alist-default): + Support xz format. (Bug#4953) + 2009-11-22 Chong Yidong * cedet/srecode/map.el (srecode-get-maps): diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 4da19f66c90..dce8685795a 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -1017,6 +1017,16 @@ dired." ;; Optional decompression. "bunzip2") + ;; xz'ed archives + (list "\\.t\\(ar\\.\\)?xz$" + "unxz -c * | tar xvf -" + ;; Extract files into a separate subdirectory + '(concat "mkdir " (file-name-sans-extension file) + "; unxz -c * | tar -C " + (file-name-sans-extension file) " -xvf -") + ;; Optional decompression. + "unxz") + '("\\.shar\\.Z$" "zcat * | unshar") '("\\.shar\\.g?z$" "gunzip -qc * | unshar") @@ -1098,6 +1108,7 @@ dired." (list "\\.g?z$" '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q"))) (list "\\.dz$" "dictunzip") (list "\\.bz2$" "bunzip2") + (list "\\.xz$" "unxz") (list "\\.Z$" "uncompress" ;; Optional conversion to gzip format. '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") -- 2.39.5