branch: master
commit 4d584dc598b2f4512b9cb6da9fc5a6ee8f849152
Author: Lars Magne Ingebrigtsen <la...@gnus.org>
Commit: Lars Magne Ingebrigtsen <la...@gnus.org>
Add a new command debbugs-gnu-patches
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-patches): New command.
(debbugs-gnu-get-bugs): Remove the "user tags" cond -- it didn't
allow us to search for bugs with specific tags.
---
packages/debbugs/debbugs-gnu.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 316a654..10a31cb 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -337,6 +337,12 @@ be empty, in this case only the following attributes are
used for
search."))
;;;###autoload
+(defun debbugs-gnu-patches ()
+ "List the bug reports that have been marked as containing a patch."
+ (interactive)
+ (debbugs-gnu nil '("emacs") nil nil "patch"))
+
+;;;###autoload
(defun debbugs-gnu-search ()
"Search for Emacs bugs interactively.
Search arguments are requested interactively. The \"search
@@ -572,10 +578,6 @@ marked as \"client-side filter\"."
(mapcar
(lambda (x) (cdr (assoc "id" x)))
(apply 'debbugs-search-est args)))
- ;; User tags.
- (tags
- (setq args (mapcar (lambda (x) (if (eq x :package) :user x)) args))
- (apply 'debbugs-get-usertag args))
;; Otherwise, we retrieve the bugs from the server.
(t (apply 'debbugs-get-bugs args)))))
