# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1272381222 14400
# Node ID 087c3dc49930493de8f4d48e494843b1c176dad2
# Parent  30a211bbe1bfd5db296210ac233df92adfa35034
(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.

diff -r 30a211bbe1bf -r 087c3dc49930 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Apr 27 13:47:19 2010 +0200
+++ b/lisp/ChangeLog	Tue Apr 27 11:13:42 2010 -0400
@@ -1,3 +1,9 @@
+2010-04-27  Sam Steingold  <sds@gnu.org>
+
+	* 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  <lekktu@gmail.com>
 
 	* ido.el (ido-buffer-internal): Bind `ido-use-virtual-buffers' to nil
diff -r 30a211bbe1bf -r 087c3dc49930 lisp/progmodes/bug-reference.el
--- a/lisp/progmodes/bug-reference.el	Tue Apr 27 13:47:19 2010 +0200
+++ b/lisp/progmodes/bug-reference.el	Tue Apr 27 11:13:42 2010 -0400
@@ -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]+\\)"