(archive-mode): Use write-contents-hooks.

2c1e5f9b · Karl Heuer · 1ea275c0 · 2c1e5f9b
Commit 2c1e5f9b authored Sep 26, 1997 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/arc-mode.el lisp/arc-mode.el +2 -2

No files found.
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -520,8 +520,8 @@ archive.
 	(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)