[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 68ffccc: Some minor changes in debbugs
From: |
Michael Albinus |
Subject: |
[elpa] master 68ffccc: Some minor changes in debbugs |
Date: |
Sat, 24 Oct 2015 08:05:42 +0000 |
branch: master
commit 68ffccc845493d95ef26d990c732ffcb21450e0e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Some minor changes in debbugs
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-default-packages):
Adapt :version.
(debbugs-gnu-archived): New face.
(debbugs-gnu-show-reports): Use it.
* packages/debbugs/debbugs-ug.texi (Tabulated Lists):
Mention `debbugs-gnu-archived'.
(Control Messages): Archived bugs must be unarchived first.
* packages/debbugs/debbugs.el (debbugs-search-est): Use `cl-case'.
---
packages/debbugs/debbugs-gnu.el | 7 ++++-
packages/debbugs/debbugs-ug.info | 50 ++++++++++++++++++++-----------------
packages/debbugs/debbugs-ug.texi | 14 +++++++----
packages/debbugs/debbugs.el | 2 +-
4 files changed, 43 insertions(+), 30 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 6d71802..210554f 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -211,7 +211,7 @@
(const "sed")
(const "vc-dwim")
(const "woodchuck"))
- :version "24.4")
+ :version "25.1")
(defconst debbugs-gnu-all-packages
(mapcar 'cadr (cdr (get 'debbugs-gnu-default-packages 'custom-type)))
@@ -234,6 +234,9 @@ suppressed bugs is toggled by
`debbugs-gnu-toggle-suppress'."
:type '(alist :key-type symbol :value-type regexp)
:version "24.1")
+(defface debbugs-gnu-archived '((t (:inverse-video t)))
+ "Face for archived bug reports.")
+
(defface debbugs-gnu-new '((t (:foreground "red")))
"Face for new reports that nobody has answered.")
@@ -667,6 +670,8 @@ marked as \"client-side filter\"."
words
'face
(cond
+ ((cdr (assq 'archived status))
+ 'debbugs-gnu-archived)
((equal (cdr (assq 'pending status)) "done")
'debbugs-gnu-done)
((member "pending" (cdr (assq 'keywords status)))
diff --git a/packages/debbugs/debbugs-ug.info b/packages/debbugs/debbugs-ug.info
index c0526a6..25b92ea 100644
--- a/packages/debbugs/debbugs-ug.info
+++ b/packages/debbugs/debbugs-ug.info
@@ -1,4 +1,4 @@
-This is debbugs-ug.info, produced by makeinfo version 5.0 from
+This is debbugs-ug.info, produced by makeinfo version 5.2 from
debbugs-ug.texi.
Copyright (C) 2015 Free Software Foundation, Inc.
@@ -299,7 +299,8 @@ maintained by the user.
('debbugs-gnu-handled', the bug has been modified recently),
MidnightBlue ('debbugs-gnu-pending', the bug is pending), orange
('debbugs-gnu-stale', the bug has not been touched for a while), and
-DarkGrey ('debbugs-gnu-done', the bug is closed).
+DarkGrey ('debbugs-gnu-done', the bug is closed). Archived bugs are
+shown with inverse face ('debbugs-gnu-archived').
The bug report buffers have enabled the minor 'debbugs-gnu-mode'.
This enables the following key strokes:
@@ -380,10 +381,13 @@ server. Their format is described in
A control message can be initiated in the tabulated list of bugs, in
the list of org TODO items, or in the GNUS ephemeral group opened for
-the messages belonging to a given bug. In the minibuffer, the following
-control messages can be requested (assuming that 12345 is the bug the
-control message is intended for). The strings show the exact format of
-the control messages.
+the messages belonging to a given bug. Control messages can be sent to
+unarchived bugs only, in case a bug is archived the control message
+'unarchive' must be sent first.
+
+ In the minibuffer, the following control messages can be requested
+(assuming that 12345 is the bug the control message is intended for).
+The strings show the exact format of the control messages.
'block'
'unblock'
@@ -530,21 +534,21 @@ Key Index
[index ]
* Menu:
-* 'B': Tabulated Lists. (line 44)
-* 'b': Tabulated Lists. (line 45)
-* 'C': Tabulated Lists. (line 57)
+* 'B': Tabulated Lists. (line 45)
+* 'b': Tabulated Lists. (line 46)
+* 'C': Tabulated Lists. (line 58)
* 'C-c # C': TODO Items. (line 30)
* 'C-c # d': TODO Items. (line 24)
* 'C-c # t': TODO Items. (line 27)
-* 'd': Tabulated Lists. (line 38)
-* 'g': Tabulated Lists. (line 41)
-* '<mouse-1>': Tabulated Lists. (line 34)
-* '<mouse-2>': Tabulated Lists. (line 36)
-* '<RET>': Tabulated Lists. (line 34)
-* 's': Tabulated Lists. (line 48)
-* 't': Tabulated Lists. (line 51)
+* 'd': Tabulated Lists. (line 39)
+* 'g': Tabulated Lists. (line 42)
+* '<mouse-1>': Tabulated Lists. (line 35)
+* '<mouse-2>': Tabulated Lists. (line 37)
+* '<RET>': Tabulated Lists. (line 35)
+* 's': Tabulated Lists. (line 49)
+* 't': Tabulated Lists. (line 52)
* '<TAB>': TODO Items. (line 21)
-* 'x': Tabulated Lists. (line 54)
+* 'x': Tabulated Lists. (line 55)
@@ -556,11 +560,11 @@ Ref: Searching Bugs-Footnote-110016
Ref: Searching Bugs-Footnote-210104
Node: Layout10195
Node: Tabulated Lists10670
-Node: TODO Items13104
-Node: Control Messages14369
-Node: Minor Mode16529
-Node: Command Index17467
-Node: Variable Index18128
-Node: Key Index18717
+Node: TODO Items13173
+Node: Control Messages14438
+Node: Minor Mode16733
+Node: Command Index17671
+Node: Variable Index18332
+Node: Key Index18921
End Tag Table
diff --git a/packages/debbugs/debbugs-ug.texi b/packages/debbugs/debbugs-ug.texi
index d3c85a5..d96c62b 100644
--- a/packages/debbugs/debbugs-ug.texi
+++ b/packages/debbugs/debbugs-ug.texi
@@ -310,7 +310,8 @@ ForestGreen (@code{debbugs-gnu-handled}, the bug has been
modified
recently), MidnightBlue (@code{debbugs-gnu-pending}, the bug is
pending), orange (@code{debbugs-gnu-stale}, the bug has not been
touched for a while), and DarkGrey (@code{debbugs-gnu-done}, the bug
-is closed).
+is closed). Archived bugs are shown with inverse face
+(@code{debbugs-gnu-archived}).
The bug report buffers have enabled the minor
@code{debbugs-gnu-mode}. This enables the following key strokes:
@@ -445,10 +446,13 @@ server. Their format is described in
A control message can be initiated in the tabulated list of bugs, in
the list of org TODO items, or in the GNUS ephemeral group opened for
-the messages belonging to a given bug. In the minibuffer, the
-following control messages can be requested (assuming that 12345 is
-the bug the control message is intended for). The strings show the
-exact format of the control messages.
+the messages belonging to a given bug. Control messages can be sent
+to unarchived bugs only, in case a bug is archived the control message
address@hidden must be sent first.
+
+In the minibuffer, the following control messages can be requested
+(assuming that 12345 is the bug the control message is intended for).
+The strings show the exact format of the control messages.
@table @samp
@item block
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 88b6b9e..c469193 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -560,7 +560,7 @@ Examples:
(unless (keywordp kw)
(error "Wrong keyword: %s" kw))
(setq key (substring (symbol-name kw) 1))
- (case kw
+ (cl-case kw
;; Phrase condition.
(:phrase
;; It shouldn't happen in an attribute condition.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 68ffccc: Some minor changes in debbugs,
Michael Albinus <=