From 68ffccc845493d95ef26d990c732ffcb21450e0e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 24 Oct 2015 10:05:18 +0200 Subject: [PATCH] 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 6d7180284..210554f6c 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 c0526a6dc..25b92ea51 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) -* '': Tabulated Lists. (line 34) -* '': Tabulated Lists. (line 36) -* '': Tabulated Lists. (line 34) -* 's': Tabulated Lists. (line 48) -* 't': Tabulated Lists. (line 51) +* 'd': Tabulated Lists. (line 39) +* 'g': Tabulated Lists. (line 42) +* '': Tabulated Lists. (line 35) +* '': Tabulated Lists. (line 37) +* '': Tabulated Lists. (line 35) +* 's': Tabulated Lists. (line 49) +* 't': Tabulated Lists. (line 52) * '': 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 d3c85a58a..d96c62b12 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 +@samp{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. @table @samp @item block diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el index 88b6b9e89..c46919397 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. -- 2.39.2