[Emacs-diffs] /srv/bzr/emacs/trunk r102453: * mail/emacsbug.el (report-emacs-bug-query-existing-bugs)

[Tassilo Horn]

------------------------------------------------------------
revno: 102453
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Sat 2010-11-20 18:32:57 +0100
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-20 14:51:25 +0000
+++ b/lisp/ChangeLog    2010-11-20 17:32:57 +0000
@@ -1,3 +1,11 @@
+2010-11-20  Tassilo Horn  <address@hidden>
+
+       * 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  <address@hidden>
 
        * tool-bar.el (tool-bar-setup): Add some :vert-only keywords.

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2010-11-20 11:39:44 +0000
+++ b/lisp/mail/emacsbug.el     2010-11-20 17:32:57 +0000
@@ -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)