Mercurial > emacs
comparison lisp/dired-x.el @ 23108:0005f4030460
(dired-guess-shell-alist-default): Fix regexp.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 26 Aug 1998 20:34:14 +0000 |
parents | c952205ba590 |
children | d414a697a646 |
comparison
equal
deleted
inserted
replaced
23107:44eda932afcf | 23108:0005f4030460 |
---|---|
949 ;; Optional conversion to gzip format. | 949 ;; Optional conversion to gzip format. |
950 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") | 950 '(concat "znew" (if dired-guess-shell-gzip-quiet " -q") |
951 " " dired-guess-shell-znew-switches)) | 951 " " dired-guess-shell-znew-switches)) |
952 | 952 |
953 ;; gzip'ed archives | 953 ;; gzip'ed archives |
954 (list "\\.t\\(ar\\.\\)g?z$" | 954 (list "\\.t\\(ar\\.\\)?gz$" |
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" ""))) |