mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* mail/emacsbug.el (report-emacs-bug-query-existing-bugs)

Browse source 
(report-emacs-bug-parse-query-results)
(report-emacs-bug-create-existing-bugs-buffer): Pass through
keywords used for querying the bug database to show them in the
existing bugs buffer.
This commit is contained in:
Tassilo Horn 2010-11-20 18:32:57 +01:00
parent 01664ed1f0
commit 7dcd777e14
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2010-11-20 Tassilo Horn <tassilo@member.fsf.org>
* mail/emacsbug.el (report-emacs-bug-query-existing-bugs)
(report-emacs-bug-parse-query-results)
(report-emacs-bug-create-existing-bugs-buffer): Pass through
keywords used for querying the bug database to show them in the
existing bugs buffer.
2010-11-20 Jan Djärv <jan.h.d@swipnet.se>
* tool-bar.el (tool-bar-setup): Add some :vert-only keywords.

12
lisp/mail/emacsbug.el
View file

@ -380,7 +380,7 @@ and send the mail again%s."
;; Querying the bug database
(defun report-emacs-bug-create-existing-bugs-buffer (bugs)
(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))
@ -388,7 +388,9 @@ and send the mail again%s."
(make-local-variable 'bug-alist)
(setq bug-alist bugs)
(make-local-variable 'bug-choice-widget)
(widget-insert (propertize "Already known bugs:\n\n" 'face 'bold))
(widget-insert (propertize (concat "Already known bugs ("
keywords "):\n\n")
'face 'bold))
(if bugs
(setq bug-choice-widget
(apply 'widget-create 'radio-button-choice
@ -430,7 +432,7 @@ and send the mail again%s."
(widget-setup)
(goto-char (point-min)))
(defun report-emacs-bug-parse-query-results (status)
(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)
@ -444,7 +446,7 @@ and send the mail again%s."
;; then the subject and number
subject (string-to-number number))
buglist))))
(report-emacs-bug-create-existing-bugs-buffer (nreverse 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.
@ -454,7 +456,7 @@ The result is an alist with items of the form (URL SUBJECT NO)."
"pkgreport.cgi?include=subject%3A"
(replace-regexp-in-string "[[:space:]]+" "+" keywords)
";package=emacs")
'report-emacs-bug-parse-query-results))
'report-emacs-bug-parse-query-results (list keywords)))
(provide 'emacsbug)