From 2b2c07948eb4a047b90bdab313ec7fc0ec42ab76 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 21 Aug 2012 23:47:00 -0700 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/bug-reference.el | 13 +++++++++++-- 2 files changed, 16 insertions(+), 2 deletions(-) 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 + + * progmodes/bug-reference.el (bug-reference): New custom group. + (bug-reference-bug-regexp): Make it a defcustom. + 2012-08-22 Daiki Ueno * 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." -- 2.39.2