Mercurial > emacs

changeset 111653:ee9c4ac3bff4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Tassilo Horn <tassilo@member.fsf.org>
date Sat, 20 Nov 2010 18:32:57 +0100
parents 9b9426ae2633
children 1ce970bc77c0
files lisp/ChangeLog lisp/mail/emacsbug.el
diffstat 2 files changed, 15 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Nov 20 10:23:49 2010 -0500
+++ b/lisp/ChangeLog	Sat Nov 20 18:32:57 2010 +0100
@@ -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.
--- a/lisp/mail/emacsbug.el	Sat Nov 20 10:23:49 2010 -0500
+++ b/lisp/mail/emacsbug.el	Sat Nov 20 18:32:57 2010 +0100
@@ -380,7 +380,7 @@
 
 ;; 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 @@
     (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 @@
   (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 @@
 		 ;; 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 @@
 			"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)