# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 875309950 0
# Node ID b93ac48bafd1c43e5c9ec1944a3433bc33a1b455
# Parent  5b29242aea2a53ccec20a30c74b332b684f3d690
(archive-mode): Use write-contents-hooks.

diff -r 5b29242aea2a -r b93ac48bafd1 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Fri Sep 26 21:26:31 1997 +0000
+++ b/lisp/arc-mode.el	Fri Sep 26 21:39:10 1997 +0000
@@ -520,8 +520,8 @@
 	(make-local-variable 'revert-buffer-function)
 	(setq revert-buffer-function 'archive-mode-revert)
 	(auto-save-mode 0)
-	(make-local-variable 'local-write-file-hooks)
-	(add-hook 'local-write-file-hooks 'archive-write-file)
+	(make-local-variable 'write-contents-hooks)
+	(add-hook 'write-contents-hooks 'archive-write-file)
 
 	;; Real file contents is binary
 	(make-local-variable 'require-final-newline)