# HG changeset patch # User yoshiki # Date 965381897 0 # Fri Aug 04 09:38:17 2000 +0000 # Node ID 4d5331fca01012f4dece19c83fd6184a85c4b9e5 # Parent ea0755da3255752313b02a315cb6e7fd0a9b7ff7 * crypt.el (crypt-encoding-alist): Gzip Files with .gz and .tgz extension. (crypt-find-file-hook): renaming of then ungzipped buffers name.gz => name and name.tgz => name.tar Johannes' patch "Patch for xemacs-packages/os-utils/crypt.el", <200003130943.KAA17701@sulla.informatik.uni-ulm.de> diff --git a/ChangeLog b/ChangeLog --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2000-03-13 Johannes Ziegler <ziegler@bach.informatik.uni-ulm.de> + + * crypt.el (crypt-encoding-alist): Gzip Files with .gz and .tgz + extension. + (crypt-find-file-hook): renaming of then ungzipped buffers + name.gz => name and name.tgz => name.tar + 2000-02-23 Jan Vroonhof <vroonhof@math.ethz.ch> * jka-compr.el: Globally replace 'no-conversion with 'binary diff --git a/crypt.el b/crypt.el --- a/crypt.el +++ b/crypt.el @@ -1028,7 +1028,7 @@ ;; gzip (GNU zip) (list 'gzip "\037\213" nil - "\\(\\.g?z\\)$" + "\\.\\(tgz\\|g?z\\)$" "gzip" "gzip" "--quiet" "--decompress --quiet" "Zip" @@ -1317,6 +1317,10 @@ (string-match "\\.gz$" buffer-file-name)) (set-visited-file-name (substring buffer-file-name 0 (match-beginning 0)))) + (if (and (not (null-buffer-file-name)) + (string-match "\\.tgz$" buffer-file-name)) + (set-visited-file-name + (concat (substring buffer-file-name 0 (match-beginning 0)) ".tar")) (if (and (not (null buffer-file-name)) (string-match "\\.bz2$" buffer-file-name)) (set-visited-file-name