Mercurial > emacs
comparison lisp/dired-x.el @ 25409:d414a697a646
(dired-guess-shell-alist-default): Support bzip2 format.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 28 Aug 1999 15:16:55 +0000 |
parents | 0005f4030460 |
children | ee92c3ce100d |
comparison
equal
deleted
inserted
replaced
25408:68c51b1a537f | 25409:d414a697a646 |
---|---|
955 '(if dired-guess-shell-gnutar | 955 '(if dired-guess-shell-gnutar |
956 (concat dired-guess-shell-gnutar " zxvf") | 956 (concat dired-guess-shell-gnutar " zxvf") |
957 (concat "gunzip -qc * | tar xvf -")) | 957 (concat "gunzip -qc * | tar xvf -")) |
958 ;; Optional decompression. | 958 ;; Optional decompression. |
959 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q" ""))) | 959 '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q" ""))) |
960 ;; bzip2'ed archives | |
961 (list "\\.tar\\.bz2$" | |
962 "bunzip2 -c * | tar xvf -" | |
963 ;; Optional decompression. | |
964 "bunzip2") | |
960 | 965 |
961 '("\\.shar.Z$" "zcat * | unshar") | 966 '("\\.shar.Z$" "zcat * | unshar") |
962 '("\\.shar.g?z$" "gunzip -qc * | unshar") | 967 '("\\.shar.g?z$" "gunzip -qc * | unshar") |
963 | 968 |
964 '("\\.e?ps$" "ghostview" "xv" "lpr") | 969 '("\\.e?ps$" "ghostview" "xv" "lpr") |
1001 '("\\.arc$" "arc x") | 1006 '("\\.arc$" "arc x") |
1002 '("\\.shar$" "unshar") | 1007 '("\\.shar$" "unshar") |
1003 | 1008 |
1004 ;; Compression. | 1009 ;; Compression. |
1005 (list "\\.g?z$" '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q"))) | 1010 (list "\\.g?z$" '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q"))) |
1011 (list "\\.bz2$" "bunzip2") | |
1006 (list "\\.Z$" "uncompress" | 1012 (list "\\.Z$" "uncompress" |
1007 ;; Optional conversion to gzip format. | 1013 ;; Optional conversion to gzip format. |
1008 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") | 1014 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") |
1009 " " dired-guess-shell-znew-switches)) | 1015 " " dired-guess-shell-znew-switches)) |
1010 ) | 1016 ) |