# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1253916247 0
# Node ID 6163789008fda761fbf63e56bc90bc9e28ed1393
# Parent  3f979274bac4831a600a2937935c1857ad2809e0
* files.el (safe-local-eval-forms): Allow time-stamp in
before-save-hook (Bug#4554).

diff -r 3f979274bac4 -r 6163789008fd lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 25 21:47:47 2009 +0000
+++ b/lisp/ChangeLog	Fri Sep 25 22:04:07 2009 +0000
@@ -1,3 +1,8 @@
+2009-09-25  Juri Linkov  <juri@jurta.org>
+
+	* files.el (safe-local-eval-forms): Allow time-stamp in
+	before-save-hook (Bug#4554).
+
 2009-09-25  Drew Adams  <drew.adams@oracle.com>
 
 	* menu-bar.el (list-buffers-directory): Doc fix.
diff -r 3f979274bac4 -r 6163789008fd lisp/files.el
--- a/lisp/files.el	Fri Sep 25 21:47:47 2009 +0000
+++ b/lisp/files.el	Fri Sep 25 22:04:07 2009 +0000
@@ -2687,7 +2687,9 @@
   :group 'find-file
   :type 'alist)
 
-(defcustom safe-local-eval-forms '((add-hook 'write-file-hooks 'time-stamp))
+(defcustom safe-local-eval-forms
+  '((add-hook 'write-file-functions 'time-stamp)
+    (add-hook 'before-save-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