Mercurial > emacs
changeset 106198:97b90713fd52
Sven Joachim <svenjoac at gmx.de>
(dired-guess-shell-alist-default): Support xz format. (Bug#4953)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 23 Nov 2009 00:32:37 +0000 |
| parents | 019d906c8f48 |
| children | eaae8a5d935f |
| files | lisp/ChangeLog lisp/dired-x.el |
| diffstat | 2 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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")