Mercurial > emacs

comparison lisp/dired-x.el @ 25409:d414a697a646

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 )