[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109739: Make bug-reference-bug-regex
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109739: Make bug-reference-bug-regexp customizable |
Date: |
Tue, 21 Aug 2012 23:47:00 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 109739
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-21 23:47:00 -0700
message:
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.
modified:
lisp/ChangeLog
lisp/progmodes/bug-reference.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-08-22 05:35:38 +0000
+++ b/lisp/ChangeLog 2012-08-22 06:47:00 +0000
@@ -1,3 +1,8 @@
+2012-08-22 Glenn Morris <address@hidden>
+
+ * progmodes/bug-reference.el (bug-reference): New custom group.
+ (bug-reference-bug-regexp): Make it a defcustom.
+
2012-08-22 Daiki Ueno <address@hidden>
* progmodes/js.el (js-indent-level, js-expr-indent-offset)
=== modified file 'lisp/progmodes/bug-reference.el'
--- a/lisp/progmodes/bug-reference.el 2012-07-21 06:13:23 +0000
+++ b/lisp/progmodes/bug-reference.el 2012-08-22 06:47:00 +0000
@@ -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 @@
(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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109739: Make bug-reference-bug-regexp customizable,
Glenn Morris <=