changeset 105204:6163789008fd

* files.el (safe-local-eval-forms): Allow time-stamp in before-save-hook (Bug#4554).
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 25 Sep 2009 22:04:07 +0000
parents 3f979274bac4
children 3603226f3cf8
files lisp/ChangeLog lisp/files.el
diffstat 2 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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