(tar-mode): Use write-contents-functions, not write-contents-hooks.

This commit is contained in:
Richard M. Stallman 2004-10-27 17:40:19 +00:00
parent 4660a9e3d6
commit bea824fdf3

View file

@ -578,7 +578,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'.
;; Prevent loss of data when saving the file.
(set (make-local-variable 'file-precious-flag) t)
(auto-save-mode 0)
(set (make-local-variable 'write-contents-hooks) '(tar-mode-write-file))
(set (make-local-variable 'write-contents-functions) '(tar-mode-write-file))
(widen)
(if (and (boundp 'tar-header-offset) tar-header-offset)
(narrow-to-region (point-min) (byte-to-position tar-header-offset))