Sven Joachim <svenjoac at gmx.de>

(dired-guess-shell-alist-default): Support xz format.  (Bug#4953)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b39254f2d3c4dbb82bfa02a4b1e586324c888ac..797e258b3392aca1ab149af732e33586f773023d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-11-23  Sven Joachim  <svenjoac@gmx.de>
+
+       * dired-x.el (dired-guess-shell-alist-default):
+       Support xz format.  (Bug#4953)
+
 2009-11-22  Chong Yidong  <cyd@stupidchicken.com>
 
        * cedet/srecode/map.el (srecode-get-maps):

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 4da19f66c90bbcd1fa5da18167d1d62b8eeb4371..dce8685795ac91d2b5747fb8b635795e88ac8d77 100644 (file)
--- 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")