83 |
(goto-char (point-min)) |
(goto-char (point-min)) |
84 |
(message "Uncompressing...done") |
(message "Uncompressing...done") |
85 |
(set-buffer-modified-p nil) |
(set-buffer-modified-p nil) |
86 |
(make-local-variable 'write-file-hooks) |
(add-hook 'write-file-functions 'uncompress-backup-file nil t) |
|
(or (memq 'uncompress-backup-file write-file-hooks) |
|
|
(setq write-file-hooks (cons 'uncompress-backup-file write-file-hooks))) |
|
87 |
(normal-mode)) |
(normal-mode)) |
88 |
|
|
89 |
(or (memq 'find-compressed-version find-file-not-found-hooks) |
(add-hook 'find-file-not-found-functions 'find-compressed-version) |
|
(setq find-file-not-found-hooks |
|
|
(cons 'find-compressed-version find-file-not-found-hooks))) |
|
90 |
|
|
91 |
(defun find-compressed-version () |
(defun find-compressed-version () |
92 |
"Hook to read and uncompress the compressed version of a file." |
"Hook to read and uncompress the compressed version of a file." |