[Emacs-diffs] /srv/bzr/emacs/trunk r102140: * lisp/vc/log-edit.el (log-edit-rewrite-fixes): State its safety pred.

[Stefan Monnier]

------------------------------------------------------------
revno: 102140
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2010-10-28 10:36:59 -0400
message:
  * lisp/vc/log-edit.el (log-edit-rewrite-fixes): State its safety pred.
modified:
  lisp/ChangeLog
  lisp/vc/log-edit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-28 07:05:00 +0000
+++ b/lisp/ChangeLog    2010-10-28 14:36:59 +0000
@@ -1,3 +1,7 @@
+2010-10-28  Stefan Monnier  <address@hidden>
+
+       * vc/log-edit.el (log-edit-rewrite-fixes): State its safety pred.
+
 2010-10-28  Glenn Morris  <address@hidden>
 
        * term/ns-win.el (global-map, menu-bar-final-items, menu-bar-help-menu):

=== modified file 'lisp/vc/log-edit.el'
--- a/lisp/vc/log-edit.el       2010-10-27 21:47:09 +0000
+++ b/lisp/vc/log-edit.el       2010-10-28 14:36:59 +0000
@@ -579,6 +579,8 @@
 where REGEXP should match the expression referring to a bug number
 in the text, and REPLACEMENT is an expression to pass to `replace-match'
 to build the Fixes: header.")
+(put 'log-edit-rewrite-fixes 'safe-local-variable
+     (lambda (v) (and (stringp (car-safe v)) (stringp (cdr v)))))
 
 (defun log-edit-insert-changelog (&optional use-first)
   "Insert a log message by looking at the ChangeLog.