diff options
| author | Tassilo Horn <tassilo@member.fsf.org> | 2010-11-20 18:32:57 +0100 |
|---|---|---|
| committer | Tassilo Horn <tassilo@member.fsf.org> | 2010-11-20 18:32:57 +0100 |
| commit | 7dcd777e1461002059399219ba77e891533a65bb (patch) | |
| tree | 988e585507326d21b408aa9dec4912d2e3ef31e1 /lisp/mail/emacsbug.el | |
| parent | 01664ed1f0b76fa4f6fe2290c174a0f22daceb25 (diff) | |
| download | emacs-7dcd777e1461002059399219ba77e891533a65bb.tar.gz | |
* 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.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 73e26a3a53d..1a8be7fc5a8 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -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) |