Revert last bug-reference-url-format change.

* progmodes/bug-reference.el (bug-reference-url-format): Revert
2010-04-27 change due to security risk.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03deb82d0b1e1dcbfaf387fc5e6610005adc28be..a97a6e9cc7d9057651e76de69f11833271d87d41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-28  Chong Yidong  <cyd@stupidchicken.com>
+
+       * progmodes/bug-reference.el (bug-reference-url-format): Revert
+       2010-04-27 change due to security risk.
+
 2010-04-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        Make it possible to locally disable a globally enabled mode.

diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index 1ddfddf89c15489e35bf8b3374fcaf22ae4a34ec..462f978ab787e3e03cb62f99b5eb6c13e493242a 100644 (file)
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -51,8 +51,7 @@ It can use `match-string' to get parts matched against
 There is no default setting for this, it must be set per file.")
 
 ;;;###autoload
-(put 'bug-reference-url-format 'safe-local-variable
-     (lambda (s) (or (stringp s) (functionp s))))
+(put 'bug-reference-url-format 'safe-local-variable 'stringp)
 
 (defconst bug-reference-bug-regexp
   "\\([Bb]ug ?#\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\)"