Mercurial > emacs
changeset 4762:5eaa5d4eaaca
(local-write-file-hooks): Make this variable buffer-local.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 07:23:26 +0000 |
| parents | fd03ee47c0b2 |
| children | a57b0b715c04 |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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.