# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1258936357 0
# Node ID 97b90713fd5208f3a66a0eb3c5449d5e312a9c81
# Parent  019d906c8f48c014b3247bc632b0b6c7bae97ae4
Sven Joachim  <svenjoac at gmx.de>

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

diff -r 019d906c8f48 -r 97b90713fd52 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 22 23:49:13 2009 +0000
+++ b/lisp/ChangeLog	Mon Nov 23 00:32:37 2009 +0000
@@ -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 -r 019d906c8f48 -r 97b90713fd52 lisp/dired-x.el
--- a/lisp/dired-x.el	Sun Nov 22 23:49:13 2009 +0000
+++ b/lisp/dired-x.el	Mon Nov 23 00:32:37 2009 +0000
@@ -1017,6 +1017,16 @@
 	 ;; 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 @@
    (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")