|
0
|
1 ;;; Synched up with: Not synched with FSF. Close though.
|
|
|
2 ;;; #### This loser doesn't even provide .gz support here!
|
|
|
3 ;;; FSF's version does.
|
|
|
4
|
|
|
5 ;;; uncompress.el --- auto-decompression hook for visiting .Z files
|
|
|
6 ;; Keywords: unix extensions
|
|
|
7
|
|
|
8
|
|
|
9 ;; ============================================================
|
|
|
10 ;; NOTE: crypt.el is a much more complete version of this hack.
|
|
|
11 ;; ============================================================
|
|
|
12
|
|
|
13
|
|
|
14
|
|
|
15 ;; When we are about to make a backup file,
|
|
|
16 ;; uncompress the file we visited
|
|
|
17 ;; so that making the backup can work properly.
|
|
|
18 ;; This is used as a write-file-hook.
|
|
|
19
|
|
|
20 (defun uncompress-backup-file ()
|
|
|
21 (and buffer-file-name make-backup-files (not buffer-backed-up)
|
|
|
22 (not (file-exists-p buffer-file-name))
|
|
|
23 (call-process "uncompress" nil nil nil buffer-file-name))
|
|
|
24 nil)
|
|
|
25
|
|
|
26 (or (assoc "\\.Z$" auto-mode-alist)
|
|
|
27 (setq auto-mode-alist
|
|
|
28 (cons '("\\.Z$" . uncompress-while-visiting) auto-mode-alist)))
|
|
|
29
|
|
|
30 (defun uncompress-while-visiting ()
|
|
|
31 "Temporary \"major mode\" used for .Z files, to uncompress the contents.
|
|
|
32 It then selects a major mode from the uncompressed file name and contents."
|
|
|
33 (if (and (not (null buffer-file-name))
|
|
|
34 (string-match "\\.Z$" buffer-file-name))
|
|
|
35 (set-visited-file-name
|
|
|
36 (substring buffer-file-name 0 (match-beginning 0))))
|
|
|
37 (message "Uncompressing...")
|
|
|
38 (let ((buffer-read-only nil))
|
|
|
39 (shell-command-on-region (point-min) (point-max) "uncompress" t))
|
|
|
40 (message "Uncompressing...done")
|
|
|
41 (set-buffer-modified-p nil)
|
|
|
42 (make-local-variable 'write-file-hooks)
|
|
|
43 (or (memq 'uncompress-backup-file write-file-hooks)
|
|
|
44 (setq write-file-hooks (cons 'uncompress-backup-file write-file-hooks)))
|
|
|
45 (normal-mode))
|
|
|
46
|
|
|
47 (or (memq 'find-compressed-version find-file-not-found-hooks)
|
|
|
48 (setq find-file-not-found-hooks
|
|
|
49 (cons 'find-compressed-version find-file-not-found-hooks)))
|
|
|
50
|
|
|
51 (defun find-compressed-version ()
|
|
|
52 "Hook to read and uncompress the compressed version of a file."
|
|
|
53 ;; Just pretend we had visited the compressed file,
|
|
|
54 ;; and uncompress-while-visiting will do the rest.
|
|
|
55 (if (file-exists-p (concat buffer-file-name ".Z"))
|
|
|
56 (progn
|
|
|
57 (setq buffer-file-name (concat buffer-file-name ".Z"))
|
|
|
58 (insert-file-contents buffer-file-name t)
|
|
|
59 (goto-char (point-min))
|
|
|
60 (setq error nil)
|
|
|
61 t)))
|
