(safe-local-eval-forms): Mark

(add-hook 'write-file-hooks 'time-stamp) as safe.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c54e9abec57..389f7b70fb7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
+2008-01-10  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * files.el (safe-local-eval-forms): Mark
+        (add-hook 'write-file-hooks 'time-stamp) as safe.
+
 2008-01-10  Nick Roberts  <nickrob@snap.net.nz>
 
         * comint.el (comint-insert-input): Set point first.
 
         * progmodes/gdb-ui.el (gdb-dequeue-input): Make doubly sure
         session doesn't hang because gdb-pending-triggers is non-nil.
-        (gdb-frame-handler): Use buffer-file-name instead of 
+        (gdb-frame-handler): Use buffer-file-name instead of
         buffer-name in case of duplicate file names.
 
 2008-01-10  Dan Nicolaescu  <dann@ics.uci.edu>
diff --git a/lisp/files.el b/lisp/files.el
index aa6e7f1082a..ea327f48f2c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2418,13 +2418,13 @@ symbol and VAL is a value that is considered safe."
   :group 'find-file
   :type  'alist)
 
-(defcustom safe-local-eval-forms nil
+(defcustom safe-local-eval-forms '((add-hook 'write-file-hooks '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
 they appear in an `eval' local variable specification, without first
 asking you for confirmation."
   :group 'find-file
-  :version "22.1"
+  :version "22.2"
   :type '(repeat sexp))
 
 ;; Risky local variables: