# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098898819 0
# Node ID 97a3201f82ef712c523a1c2dd4f5bf8f32553e03
# Parent  394f5aa03475e1621a55b0aff9e59e4d208a2799
(tar-mode): Use write-contents-functions, not write-contents-hooks.

diff -r 394f5aa03475 -r 97a3201f82ef lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed Oct 27 15:07:06 2004 +0000
+++ b/lisp/tar-mode.el	Wed Oct 27 17:40:19 2004 +0000
@@ -578,7 +578,7 @@
   ;; 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))