From 5582c6706a68bca9cc9a1215f257cc3fbe573c9a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 22 Feb 2011 19:24:23 -0800 Subject: [PATCH] * lisp/files.el (safe-local-eval-forms): Add the write-file-hooks version. This obsolete form is still supported, and present in some of the files synced from gnulib, for example. --- lisp/ChangeLog | 4 ++++ lisp/files.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c817a59a03a..5102204b571 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-02-23 Glenn Morris + + * files.el (safe-local-eval-forms): Add the write-file-hooks version. + 2011-02-22 Stefan Monnier * help-fns.el (describe-function-1): Don't signal an error just because diff --git a/lisp/files.el b/lisp/files.el index 014469ed8fc..3409ebe02e1 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2806,7 +2806,9 @@ symbol and VAL is a value that is considered safe." :type 'alist) (defcustom safe-local-eval-forms - '((add-hook 'write-file-functions 'time-stamp) + ;; This should be here at least as long as Emacs supports write-file-hooks. + '((add-hook 'write-file-hooks 'time-stamp) + (add-hook 'write-file-functions 'time-stamp) (add-hook 'before-save-hook 'time-stamp)) "Expressions that are considered safe in an `eval:' local variable. Add expressions to this list if you want Emacs to evaluate them, when @@ -2814,7 +2816,7 @@ they appear in an `eval' local variable specification, without first asking you for confirmation." :risky t :group 'find-file - :version "22.2" + :version "24.1" ; added write-file-hooks :type '(repeat sexp)) ;; Risky local variables: -- 2.39.5