Mercurial > emacs
changeset 17250:68dcc3ebe342
(uncompress-while-visiting): Handle .tgz files.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 Mar 1997 07:36:48 +0000 |
| parents | 2dfc334bdc6f |
| children | 0e39c85743af |
| files | lisp/uncompress.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uncompress.el Wed Mar 26 07:30:26 1997 +0000 +++ b/lisp/uncompress.el Wed Mar 26 07:36:48 1997 +0000 @@ -24,10 +24,12 @@ ;;; Commentary: ;; This package can be used to arrange for automatic uncompress of -;; files packed with the UNIX compress(1) utility when they are visited. +;; compressed files when they are visited. ;; All that's necessary is to load it. This can conveniently be done from ;; your .emacs file. +;; M-x auto-compression-mode is a more modern replacement for this package. + ;;; Code: ;; When we are about to make a backup file, @@ -50,6 +52,9 @@ (or (assoc "\\.gz$" auto-mode-alist) (setq auto-mode-alist (cons '("\\.gz$" . uncompress-while-visiting) auto-mode-alist))) +(or (assoc "\\.tgz$" auto-mode-alist) + (setq auto-mode-alist + (cons '("\\.tgz$" . uncompress-while-visiting) auto-mode-alist))) (defun uncompress-while-visiting () "Temporary \"major mode\" used for .Z and .gz files, to uncompress them. @@ -61,7 +66,11 @@ (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))))) + (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"))))) (message "Uncompressing...") (let ((buffer-read-only nil)) (shell-command-on-region (point-min) (point-max) uncompress-program t))