# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748596206 0
# Node ID 5eaa5d4eaacad9034e010b3db23c8c76510bffb6
# Parent  fd03ee47c0b218e4b11ea840e5ce95374d8d7626
(local-write-file-hooks): Make this variable buffer-local.

diff -r fd03ee47c0b2 -r 5eaa5d4eaaca lisp/files.el
--- a/lisp/files.el	Tue Sep 21 07:18:36 1993 +0000
+++ b/lisp/files.el	Tue Sep 21 07:23:26 1993 +0000
@@ -185,8 +185,6 @@
 The buffer's local variables (if any) will have been processed before the
 functions are called.")
 
-;;; In case someone does make it local.
-(put 'write-file-hooks 'permanent-local t)
 (defvar write-file-hooks nil
   "List of functions to be called before writing out a buffer to a file.
 If one of them returns non-nil, the file is considered already written
@@ -195,12 +193,15 @@
 So this list is cleared if you change the visited file name.
 See also `write-contents-hooks'.
 Don't make this variable buffer-local; instead, use `local-write-file-hooks'.")
+;;; However, in case someone does make it local...
+(put 'write-file-hooks 'permanent-local t)
 
-(put 'local-write-file-hooks 'permanent-local t)
 (defvar local-write-file-hooks nil
   "Just like `write-file-hooks', except intended for per-buffer use.
 The functions in this list are called before the ones in
 `write-file-hooks'.")
+(make-variable-buffer-local 'local-write-file-hooks)
+(put 'local-write-file-hooks 'permanent-local t)
 
 (defvar write-contents-hooks nil
   "List of functions to be called before writing out a buffer to a file.