[Emacs-diffs] /srv/bzr/emacs/trunk r103392: * lisp/files.el (safe-local-eval-forms): Add the write-file-hooks version.

[Glenn Morris]

------------------------------------------------------------
revno: 103392
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-02-22 19:24:23 -0800
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-22 18:22:04 +0000
+++ b/lisp/ChangeLog    2011-02-23 03:24:23 +0000
@@ -1,3 +1,7 @@
+2011-02-23  Glenn Morris  <address@hidden>
+
+       * files.el (safe-local-eval-forms): Add the write-file-hooks version.
+
 2011-02-22  Stefan Monnier  <address@hidden>
 
        * help-fns.el (describe-function-1): Don't signal an error just because

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-02-19 19:40:59 +0000
+++ b/lisp/files.el     2011-02-23 03:24:23 +0000
@@ -2806,7 +2806,9 @@
   :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 @@
 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: