mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

Remove report-emacs-bug-query-existing-bugs (use debbugs from GNU ELPA instead)

Browse Source 
* lisp/mail/emacsbug.el (report-emacs-bug-tracker-url)
(report-emacs-bug-bug-alist, report-emacs-bug-choice-widget)
(report-emacs-bug-create-existing-bugs-buffer)
(report-emacs-bug-parse-query-results)
(report-emacs-bug-query-existing-bugs): Remove.

Fixes: debbugs:7449
This commit is contained in:
Glenn Morris 2012-11-10 15:19:43 -08:00
parent 6baf66d53b
commit 714cebd1b1
2 changed files with 6 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,5 +1,11 @@
2012-11-10 Glenn Morris <rgm@gnu.org>
* mail/emacsbug.el (report-emacs-bug-tracker-url)
(report-emacs-bug-bug-alist, report-emacs-bug-choice-widget)
(report-emacs-bug-create-existing-bugs-buffer)
(report-emacs-bug-parse-query-results)
(report-emacs-bug-query-existing-bugs): Remove. (Bug#7449)
* term.el (term-default-fg-color, term-default-bg-color):
Make obsolete, rather than just saying "deprecated" in the doc.

89
lisp/mail/emacsbug.el
View File

@ -60,10 +60,6 @@
;; User options end here.
(defvar report-emacs-bug-tracker-url "http://debbugs.gnu.org/cgi/"
"Base URL of the GNU bugtracker.
Used for querying duplicates and linking to existing bugs.")
(defvar report-emacs-bug-orig-text nil
"The automatically-created initial text of the bug report.")
@ -444,91 +440,6 @@ and send the mail again%s."
(delete-region pos (field-end (1+ pos)))))))
;; Querying the bug database
(defvar report-emacs-bug-bug-alist nil)
(make-variable-buffer-local 'report-emacs-bug-bug-alist)
(defvar report-emacs-bug-choice-widget nil)
(make-variable-buffer-local 'report-emacs-bug-choice-widget)
(defun report-emacs-bug-create-existing-bugs-buffer (bugs keywords)
(switch-to-buffer (get-buffer-create "*Existing Emacs Bugs*"))
(setq buffer-read-only t)
(let ((inhibit-read-only t))
(erase-buffer)
(setq report-emacs-bug-bug-alist bugs)
(widget-insert (propertize (concat "Already known bugs ("
keywords "):\n\n")
'face 'bold))
(if bugs
(setq report-emacs-bug-choice-widget
(apply 'widget-create 'radio-button-choice
:value (caar bugs)
(let (items)
(dolist (bug bugs)
(push (list
'url-link
:format (concat "Bug#" (number-to-string (nth 2 bug))
": " (cadr bug) "\n %[%v%]\n")
;; FIXME: Why is only the link of the
;; active item clickable?
(car bug))
items))
(nreverse items))))
(widget-insert "No bugs matching your keywords found.\n"))
(widget-insert "\n")
(widget-create 'push-button
:notify (lambda (&rest ignore)
;; TODO: Do something!
(message "Reporting new bug!"))
"Report new bug")
(when bugs
(widget-insert " ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(let ((val (widget-value report-emacs-bug-choice-widget)))
;; TODO: Do something!
(message "Appending to bug %s!"
(nth 2 (assoc val report-emacs-bug-bug-alist)))))
"Append to chosen bug"))
(widget-insert " ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(kill-buffer))
"Quit reporting bug")
(widget-insert "\n"))
(use-local-map widget-keymap)
(widget-setup)
(goto-char (point-min)))
(defun report-emacs-bug-parse-query-results (status keywords)
(goto-char (point-min))
(let (buglist)
(while (re-search-forward "<a href=\"bugreport\\.cgi\\?bug=\\([[:digit:]]+\\)\">\\([^<]+\\)</a>" nil t)
(let ((number (match-string 1))
(subject (match-string 2)))
(when (not (string-match "^#" subject))
(push (list
;; first the bug URL
(concat report-emacs-bug-tracker-url
"bugreport.cgi?bug=" number)
;; then the subject and number
subject (string-to-number number))
buglist))))
(report-emacs-bug-create-existing-bugs-buffer (nreverse buglist) keywords)))
(defun report-emacs-bug-query-existing-bugs (keywords)
"Query for KEYWORDS at `report-emacs-bug-tracker-url', and return the result.
The result is an alist with items of the form (URL SUBJECT NO)."
(interactive "sBug keywords (comma separated): ")
(url-retrieve (concat report-emacs-bug-tracker-url
"pkgreport.cgi?include=subject%3A"
(replace-regexp-in-string "[[:space:]]+" "+" keywords)
";package=emacs")
'report-emacs-bug-parse-query-results (list keywords)))
(make-obsolete 'report-emacs-bug-query-existing-bugs
"use the `debbugs' package from GNU ELPA instead." "24.3")
(provide 'emacsbug)
;;; emacsbug.el ends here