[Emacs-diffs] emacs/lisp ChangeLog dired-x.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/11/23 00:32:40

Modified files:
        lisp           : ChangeLog dired-x.el 

Log message:
        Sven Joachim  <svenjoac at gmx.de>
        
        (dired-guess-shell-alist-default): Support xz format.  (Bug#4953)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16703&r2=1.16704
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired-x.el?cvsroot=emacs&r1=1.102&r2=1.103

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16703
retrieving revision 1.16704
diff -u -b -r1.16703 -r1.16704
--- ChangeLog   22 Nov 2009 23:49:13 -0000      1.16703
+++ ChangeLog   23 Nov 2009 00:32:37 -0000      1.16704
@@ -1,3 +1,8 @@
+2009-11-23  Sven Joachim  <address@hidden>
+
+       * dired-x.el (dired-guess-shell-alist-default):
+       Support xz format.  (Bug#4953)
+
 2009-11-22  Chong Yidong  <address@hidden>
 
        * cedet/srecode/map.el (srecode-get-maps):

Index: dired-x.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-x.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- dired-x.el  2 Oct 2009 03:48:40 -0000       1.102
+++ dired-x.el  23 Nov 2009 00:32:40 -0000      1.103
@@ -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")