Skip to content
Snippets Groups Projects
Commit 4d5331fca010 authored by yoshiki's avatar yoshiki
Browse files

* 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>
parent ea0755da3255
No related branches found
No related tags found
No related merge requests found
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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment