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