branch: externals/debbugs
commit 4d6bacf8807b0a2dce303c6293266fe47de02542
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
(debbugs-done): Add a face for done bugs.
---
ChangeLog | 1 +
debbugs.el | 5 +++++
2 files changed, 6 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index c80686d..1136b8d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
* debbugs.el (debbugs-send-control-message): Add more control
messages.
+ (debbugs-done): Add a face for done bugs.
2011-07-02 Michael Albinus <[email protected]>
diff --git a/debbugs.el b/debbugs.el
index ca05188..158390a 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -389,6 +389,9 @@ buffer."
(defface debbugs-stale '((t (:foreground "orange")))
"Face for new reports that nobody has answered.")
+(defface debbugs-done '((t (:foreground "DarkGrey")))
+ "Face for closed bug reports.")
+
(defun debbugs-emacs (severities &optional package list-done archivedp)
"List all outstanding Emacs bugs."
(interactive
@@ -461,6 +464,8 @@ buffer."
(+ (point) 5) (+ (point) 26)
'face
(cond
+ ((equal (cdr (assq 'pending status)) "done")
+ 'debbugs-done)
((= (cdr (assq 'date status))
(cdr (assq 'log_modified status)))
'debbugs-new)
