580 |
;; Prevent loss of data when saving the file. |
;; Prevent loss of data when saving the file. |
581 |
(set (make-local-variable 'file-precious-flag) t) |
(set (make-local-variable 'file-precious-flag) t) |
582 |
(auto-save-mode 0) |
(auto-save-mode 0) |
583 |
(set (make-local-variable 'write-contents-hooks) '(tar-mode-write-file)) |
(set (make-local-variable 'write-contents-functions) '(tar-mode-write-file)) |
584 |
(widen) |
(widen) |
585 |
(if (and (boundp 'tar-header-offset) tar-header-offset) |
(if (and (boundp 'tar-header-offset) tar-header-offset) |
586 |
(narrow-to-region (point-min) tar-header-offset) |
(narrow-to-region (point-min) tar-header-offset) |