# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1272471281 14400
# Node ID 852f6a14d31eedcbf1e46c037759bf9eaff9a7a4
# Parent  41f5a4a424d87a57d09b3a57843e6b5fb0488e2e
(bug-reference-url-format): Mark as `safe-local-variable' if the value
is a string or a symbol with the property `bug-reference-url-format'.

diff -r 41f5a4a424d8 -r 852f6a14d31e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 28 08:58:29 2010 -0700
+++ b/lisp/ChangeLog	Wed Apr 28 12:14:41 2010 -0400
@@ -1,3 +1,9 @@
+2010-04-28  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 symbol with
+	the property `bug-reference-url-format'.
+
 2010-04-28  Chong Yidong  <cyd@stupidchicken.com>
 
 	* progmodes/bug-reference.el (bug-reference-url-format): Revert
diff -r 41f5a4a424d8 -r 852f6a14d31e lisp/progmodes/bug-reference.el
--- a/lisp/progmodes/bug-reference.el	Wed Apr 28 08:58:29 2010 -0700
+++ b/lisp/progmodes/bug-reference.el	Wed Apr 28 12:14:41 2010 -0400
@@ -48,10 +48,18 @@
  1. issue kind (bug, patch, rfe &c)
  2. issue number.
 
-There is no default setting for this, it must be set per file.")
+There is no default setting for this, it must be set per file.
+If you set it to a symbol in the file Local Variables section,
+you need to add a `bug-reference-url-format' property to it:
+\(put 'my-bug-reference-url-format 'bug-reference-url-format t)
+so that it is considered safe, see `enable-local-variables'.")
 
 ;;;###autoload
-(put 'bug-reference-url-format 'safe-local-variable 'stringp)
+(put 'bug-reference-url-format 'safe-local-variable
+     (lambda (s)
+       (or (stringp s)
+           (and (symbolp s)
+                (get s 'bug-reference-url-format)))))
 
 (defconst bug-reference-bug-regexp
   "\\([Bb]ug ?#\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\)"