branch: externals/debbugs
commit d7b70726cbe1436c1187fe155bfc8d97cb2bcf68
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
* debbugs-gnu.el (debbugs-gnu-show-reports): Add packages to the status bar.
---
ChangeLog | 5 +++++
debbugs-gnu.el | 3 +++
2 files changed, 8 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index d3a0d0b..c24fbfa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-17 Lars Magne Ingebrigtsen <[email protected]>
+
+ * debbugs-gnu.el (debbugs-gnu-show-reports): Add packages to the
+ status bar.
+
2011-07-16 Lars Magne Ingebrigtsen <[email protected]>
* debbugs-gnu.el (debbugs-gnu-send-control-message): Add "invalid".
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 07cd96a..54922c0 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -321,6 +321,9 @@
(unless (equal (cdr (assq 'pending status)) "pending")
(setq words
(concat words "," (cdr (assq 'pending status)))))
+ (let ((packages (delete "emacs" (cdr (assq 'package status)))))
+ (when packages
+ (setq words (concat words "," (mapconcat 'identity packages ",")))))
(when (setq merged (cdr (assq 'mergedwith status)))
(setq words (format "%s,%s"
(if (numberp merged)
