| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
- This patch adds support for bugs.gnu.org URLs in debbugs.
- Upstream bug URL:
- https://lists.gnu.org/archive/html/emacs-devel/2018-01/msg00547.html
- ---
- packages/debbugs/debbugs-browse.el | 19 +++++++++++--------
- 1 file changed, 11 insertions(+), 8 deletions(-)
- diff --git a/debbugs-browse.el b/debbugs-browse.el
- index 7e37eb6ec..ee0092610 100644
- --- a/debbugs-browse.el
- +++ b/debbugs-browse.el
- @@ -1,6 +1,6 @@
- ;; debbugs-browse.el --- browse bug URLs with debbugs-gnu or debbugs-org
-
- -;; Copyright (C) 2015-2017 Free Software Foundation, Inc.
- +;; Copyright (C) 2015-2018 Free Software Foundation, Inc.
-
- ;; Author: Michael Albinus <michael.albinus@gmx.de>
- ;; Keywords: comm, hypermedia, maint
- @@ -36,15 +36,18 @@ This can be either `debbugs-gnu-bugs' or `debbugs-org-bugs'."
- (const debbugs-org-bugs))
- :version "25.1")
-
- +(defcustom debbugs-browse-url-regexp
- + (format "^%s\\(%s\\)?\\([[:digit:]]+\\)$"
- + "https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/"
- + (regexp-quote "cgi/bugreport.cgi?bug="))
- + "Regexp matching Debbugs bug report URL."
- + :group 'debbugs-gnu
- + :type 'regexp)
- +
- (defun debbugs-browse-url (url &optional _new-window)
- (when (and (stringp url)
- - (string-match
- - (format
- - "^%s\\(%s\\)?\\([[:digit:]]+\\)$"
- - "https?://debbugs\\.gnu\\.org/"
- - (regexp-quote "cgi/bugreport.cgi?bug="))
- - url))
- - (funcall debbugs-browse-function (string-to-number (match-string 2 url)))
- + (string-match debbugs-browse-url-regexp url))
- + (funcall debbugs-browse-function (string-to-number (match-string 3 url)))
- ;; Return t for add-function mechanery.
- t))
-
- --
- 2.15.1
|
