# HG changeset patch # User andreasj # Date 944312402 0 # Sat Dec 04 13:00:02 1999 +0000 # Node ID b3a3193f22e7f6b6889fb2ec98b5bf8a44bbd374 # Parent ba46c6e10db089e7c2cabb90147d83455fb66bad Added James LewisMoss' patch from <hhr9jub47j.fsf@dres.lewismoss.org> with subject "bzip support in crypt". diff --git a/ChangeLog b/ChangeLog --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +1999-09-20 James LewisMoss <dres@ioa.com> + + * crypt.el (crypt-build-encoding-alist): Add bzip2 data to + encoding list. + (crypt-find-file-hook): Add .bz2 as an ending to be stripped when + loading. + 1999-11-08 Yoshiki Hayashi <t90553@mail.ecc.u-tokyo.ac.jp> * jka-compr.el (auto-compression-mode): Pass original diff --git a/crypt.el b/crypt.el --- a/crypt.el +++ b/crypt.el @@ -1034,6 +1034,15 @@ "Zip" nil t) + ;; bzip2 + (list 'bzip2 + "BZh" nil + "\\(\\.bz2\\)$" + "bzip2" "bzip2" + "--quiet" "--decompress --quiet" + "Bzip2" + nil + t) ;; freeze (list 'freeze "\037\236\\|\037\237" nil @@ -1307,6 +1316,10 @@ (if (and (not (null buffer-file-name)) (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 "\\.bz2$" buffer-file-name)) + (set-visited-file-name (substring buffer-file-name 0 (match-beginning 0))))) (message "Decoding %s..." (buffer-name)) (crypt-encode-buffer t)