From: Glenn Morris <rgm@gnu.org>
Date: Wed, 22 Aug 2012 06:47:00 +0000 (-0700)
Subject: Make bug-reference-bug-regexp customizable
X-Git-Tag: emacs-24.2.90~550
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b2c07948eb4a047b90bdab313ec7fc0ec42ab76;p=emacs.git

Make bug-reference-bug-regexp customizable

Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-07/msg00427.html

* lisp/progmodes/bug-reference.el (bug-reference): New custom group.
(bug-reference-bug-regexp): Make it a defcustom.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a12390cd61f..63a029be1f6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-22  Glenn Morris  <rgm@gnu.org>
+
+	* progmodes/bug-reference.el (bug-reference): New custom group.
+	(bug-reference-bug-regexp): Make it a defcustom.
+
 2012-08-22  Daiki Ueno  <ueno@unixuser.org>
 
 	* progmodes/js.el (js-indent-level, js-expr-indent-offset)
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."