diff options
| author | Sam Steingold <sds@gnu.org> | 2010-04-28 12:14:41 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2010-04-28 12:14:41 -0400 |
| commit | 95c6cc3eff959dd8b107f1c54c1e3507fb4bb24e (patch) | |
| tree | 7613cfe2fe544c0a913defebe1884a36f90688ca /lisp/progmodes/bug-reference.el | |
| parent | 363a7f8f472b70b3aad61794c0360c45769ac2d5 (diff) | |
| download | emacs-95c6cc3eff959dd8b107f1c54c1e3507fb4bb24e.tar.gz | |
(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'.
Diffstat (limited to 'lisp/progmodes/bug-reference.el')
| -rw-r--r-- | lisp/progmodes/bug-reference.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index 462f978ab78..4897581252f 100644 --- a/lisp/progmodes/bug-reference.el +++ b/lisp/progmodes/bug-reference.el @@ -48,10 +48,18 @@ It can use `match-string' to get parts matched against 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]+\\)" |