diff options
author | psg <> | 2009-11-12 21:29:01 +0000 |
---|---|---|
committer | psg <> | 2009-11-12 21:29:01 +0000 |
commit | 1f6e0a2bc08981046694b966ec144b55735c1a2a (patch) | |
tree | 4548477a42f8e34033adcdc810ad5c431354638c | |
parent | ff1a4c222dc12d8be7a8b776a17d6d08f9b8f869 (diff) |
debian-bug.el: Add `emacs-bug-web-bug', `emacs-bug-get-bug-as-email':
new commands to interface with Emacs BTS
dpkg-dev-el: debian-bts-control.el: Add command `emacs-bts-control': new
command to interface with Emacs BTS.
-rw-r--r-- | debian-bug.el | 43 |
1 files changed, 35 insertions, 8 deletions
diff --git a/debian-bug.el b/debian-bug.el index 77b469d..9b24a8a 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -46,7 +46,7 @@ ;; ;; V1.5 23sep99 Francesco Potortì <pot@gnu.org> ;; - V1.1 -> 1.5 versions had no changelogs; starting one now. -;; V1.5 and V1.7 by Francesco Potortì <pot@gnu.org> were unreleased. +;; V1.6 and V1.7 by Francesco Potortì <pot@gnu.org> were unreleased. ;; V1.8 04aug01 Peter S Galbraith <psg@debian.org> ;; - WNPP interface code added. I'm unsure whether the functions useful ;; only to Debian developpers should be in here. Perhaps split into a @@ -273,7 +273,7 @@ ;; - Search for "^cc:" instead of simply "cc:" in Bug #208570 change. ;; V1.60 30May2006 Luca Capello <luca@pca.it> ;; - Change the face of Tags: for experimental, (Closes: #357265) -;; V1.61 05Sep2006 evin Ryde <user42@zip.com.au> +;; V1.61 05Sep2006 Kevin Ryde <user42@zip.com.au> ;; - word-at-point needs an autoload or a require statement (Closes: #384542) ;; V1.62 22Sep2006 Peter S Galbraith <psg@debian.org> ;; - Added "Owner:" to ITP bugs. Thanks to Romain Francoise for bringing @@ -303,6 +303,10 @@ ;; - [PATCH] using the "maintainer mbox" instead of "mbox folder". ;; Thanks to Evgeny M. Zubok (Closes: #521571). ;; - Fix "incomplete Bugs menu again", thanks to A Mennucc (Closes: #524043). +;; V1.70 11Nov2009 Peter S Galbraith <psg@debian.org> +;; - Add `debian-bug-bts-URL' variable +;; - Add `emacs-bug-web-bug', `emacs-bug-get-bug-as-email': +;; New commands to interface with Emacs BTS ;; ---------------------------------------------------------------------------- ;;; Todo (Peter's list): @@ -471,6 +475,12 @@ Otherwise, simply use the menu entry to generate it." ;;; Internal variables: +(defvar debian-bug-bts-URL "http://bugs.debian.org/cgi-bin/bugreport.cgi?" + "URL of the Bug Tracking System to query.") + +(defvar debian-bts-control-for-emacs nil + "Whether debian-bts-control is being called for Emacs BTS.") + (defvar debian-bug-mail-address "Debian Bug Tracking System <submit@bugs.debian.org>" "Email address that bugs are sent to.") @@ -591,7 +601,10 @@ The obarray associates each package with the installed version of the package." (mapcar 'debian-bug-intern (mapcar 'list debian-bug-pseudo-packages)) (mapcar 'debian-bug-intern real-pkgs) (message "Building list of installed packages...done"))) - debian-bug-packages-obarray) + (if debian-bts-control-for-emacs + '(("bzr") ("emacsbugs.donarmstrong.com") ("gnus") ("octave") + ("other") ("rmail")) + debian-bug-packages-obarray)) (defun debian-bug-check-for-program (program) "Check if PROGRAM is installed on the system. @@ -1542,12 +1555,18 @@ With optional argument prefix ARCHIVED, display archived bugs." debian-bug-alist nil nil))) (if (string-equal bug-number "") (message "No bug number to look up") - (browse-url - (concat "http://bugs.debian.org/cgi-bin/bugreport.cgi?archive=yes&bug=" - bug-number)) + (browse-url (concat debian-bug-bts-URL "archive=yes&bug=" bug-number)) (message "Looking up bug number %s via browse-url" bug-number))) ;;;###autoload +(defun emacs-bug-web-bug (&optional bug-number) + "Browse the Emacs BTS for BUG-NUMBER via `browse-url'." + (interactive "NBug number: ") + (let ((debian-bug-bts-URL + "http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?")) + (debian-bug-web-bug (number-to-string bug-number)))) + +;;;###autoload (defun debian-bug-web-this-bug-under-mouse (EVENT) "Browse the BTS via `browse-url' for the bug report number under mouse. In a program, mouse location is in EVENT." @@ -1701,8 +1720,8 @@ If SUBMENU is t, then check for current sexp submenu only." bug-number) debian-bug-download-directory)) (status) - (url (concat "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=" - bug-number "&mbox=yes&mboxmaint=yes"))) + (url (concat debian-bug-bts-URL "bug=" bug-number + "&mbox=yes&mboxmaint=yes"))) (if (and (file-exists-p filename) (not (y-or-n-p "Bug file already exists. Download again? "))) filename @@ -1774,6 +1793,14 @@ If SUBMENU is t, then check for current sexp submenu only." (let ((filename (debian-bug-wget-mbox bug-number))) (rmail filename))))) +;;;###autoload +(defun emacs-bug-get-bug-as-email (&optional bug-number) + "Read Emacs bug report #BUG-NUMBER via Email interface." + (interactive "NBug number: ") + (let ((debian-bug-package-name "Emacs") + (debian-bug-bts-URL "http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?")) + (debian-bug-get-bug-as-email (number-to-string bug-number)))) + (defvar debian-changelog-menu) (defun debian-bug-menu-action (bugnumber) |