[Emacs-diffs] emacs/lisp ChangeLog files.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/09/25 22:04:10

Modified files:
        lisp           : ChangeLog files.el 

Log message:
        * files.el (safe-local-eval-forms): Allow time-stamp in
        before-save-hook (Bug#4554).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16265&r2=1.16266
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1085&r2=1.1086

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16265
retrieving revision 1.16266
diff -u -b -r1.16265 -r1.16266
--- ChangeLog   25 Sep 2009 18:49:01 -0000      1.16265
+++ ChangeLog   25 Sep 2009 22:04:07 -0000      1.16266
@@ -1,3 +1,8 @@
+2009-09-25  Juri Linkov  <address@hidden>
+
+       * files.el (safe-local-eval-forms): Allow time-stamp in
+       before-save-hook (Bug#4554).
+
 2009-09-25  Drew Adams  <address@hidden>
 
        * menu-bar.el (list-buffers-directory): Doc fix.

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1085
retrieving revision 1.1086
diff -u -b -r1.1085 -r1.1086
--- files.el    25 Sep 2009 04:35:17 -0000      1.1085
+++ files.el    25 Sep 2009 22:04:10 -0000      1.1086
@@ -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