diff options
Diffstat (limited to 'lisp/progmodes/bug-reference.el')
| -rw-r--r-- | lisp/progmodes/bug-reference.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index 0a7d65c1fa4..97fcb6874dd 100644 --- a/lisp/progmodes/bug-reference.el +++ b/lisp/progmodes/bug-reference.el @@ -32,6 +32,11 @@ ;;; Code: +(defgroup bug-reference nil + "Hyperlinking references to bug reports" + ;; Somewhat arbitrary, by analogy with eg goto-address. + :group 'comm) + (defvar bug-reference-map (let ((map (make-sparse-keymap))) (define-key map [mouse-2] 'bug-reference-push-button) @@ -63,9 +68,13 @@ so that it is considered safe, see `enable-local-variables'.") (and (symbolp s) (get s 'bug-reference-url-format))))) -(defconst bug-reference-bug-regexp +(defcustom bug-reference-bug-regexp "\\([Bb]ug ?#\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)" - "Regular expression which matches bug references.") + "Regular expression matching bug references. +The second subexpression should match the bug reference (usually a number)." + :type 'string + :safe 'stringp + :group 'bug-reference) (defun bug-reference-set-overlay-properties () "Set properties of bug reference overlays." |