[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 79a8b16: Allow inclusing the closed bugs
From: |
Lars Ingebrigtsen |
Subject: |
[elpa] master 79a8b16: Allow inclusing the closed bugs |
Date: |
Fri, 29 Apr 2016 15:01:57 +0000 |
branch: master
commit 79a8b16d5b02da670508f4f719689f4a29e8de0d
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Allow inclusing the closed bugs
* debbugs-gnu.el (debbugs-gnu-suppress-closed): New variable.
(debbugs-gnu): Use it.
---
packages/debbugs/debbugs-gnu.el | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 8ec7a32..4c108cc 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -205,6 +205,12 @@
(const "tagged"))
:version "24.1")
+(defcustom debbugs-gnu-suppress-closed t
+ "If non-nil, don't show closed bugs."
+ :group 'debbugs-gnu
+ :type 'boolean
+ :version "25.2")
+
(defconst debbugs-gnu-all-severities
(mapcar 'cadr (cdr (get 'debbugs-gnu-default-severities 'custom-type)))
"*List of all possible severities.")
@@ -362,7 +368,10 @@ marked as \"client-side filter\"."
(setq phrase nil)
(add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase)))
;; We suppress closed bugs if there is no phrase.
- (setq debbugs-gnu-current-suppress (null phrase))
+ (setq debbugs-gnu-current-suppress
+ (if (not debbugs-gnu-suppress-closed)
+ nil
+ (null phrase)))
;; The other queries.
(catch :finished
@@ -506,7 +515,8 @@ marked as \"client-side filter\"."
(insert-file-contents debbugs-gnu-persistency-file)
(eval (read (current-buffer)))))
;; Per default, we suppress retrieved unwanted bugs.
- (when (called-interactively-p 'any)
+ (when (and (called-interactively-p 'any)
+ debbugs-gnu-suppress-closed)
(setq debbugs-gnu-current-suppress t))
;; Add queries.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 79a8b16: Allow inclusing the closed bugs,
Lars Ingebrigtsen <=