[Emacs-diffs] /srv/bzr/emacs/trunk r100059: (bug-reference-url-format): Mark as `safe-local-variable' if the value

[Sam Steingold]

------------------------------------------------------------
revno: 100059
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Tue 2010-04-27 11:13:42 -0400
message:
  (bug-reference-url-format): Mark as `safe-local-variable' if the value
  is a string or a function, as documented and implemented on 2010-04-02.
modified:
  lisp/ChangeLog
  lisp/progmodes/bug-reference.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-04-27 11:47:19 +0000
+++ b/lisp/ChangeLog    2010-04-27 15:13:42 +0000
@@ -1,3 +1,9 @@
+2010-04-27  Sam Steingold  <address@hidden>
+
+       * progmodes/bug-reference.el (bug-reference-url-format): Mark as
+       `safe-local-variable' if the value is a string or a function, as
+       documented and implemented on 2010-04-02.
+
 2010-04-27  Juanma Barranquero  <address@hidden>
 
        * ido.el (ido-buffer-internal): Bind `ido-use-virtual-buffers' to nil

=== modified file 'lisp/progmodes/bug-reference.el'
--- a/lisp/progmodes/bug-reference.el   2010-04-09 16:04:17 +0000
+++ b/lisp/progmodes/bug-reference.el   2010-04-27 15:13:42 +0000
@@ -51,7 +51,8 @@
 There is no default setting for this, it must be set per file.")
 
 ;;;###autoload
-(put 'bug-reference-url-format 'safe-local-variable 'stringp)
+(put 'bug-reference-url-format 'safe-local-variable
+     (lambda (s) (or (stringp s) (functionp s))))
 
 (defconst bug-reference-bug-regexp
   "\\([Bb]ug ?#\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\)"