From 4d584dc598b2f4512b9cb6da9fc5a6ee8f849152 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 25 Apr 2016 18:36:40 +0200 Subject: [PATCH] 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 316a654d1..10a31cbb4 100644 --- a/packages/debbugs/debbugs-gnu.el +++ b/packages/debbugs/debbugs-gnu.el @@ -336,6 +336,12 @@ between the words, AND is used by default. The phrase can also 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. @@ -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))))) -- 2.39.2