[elpa] master 7a63b77: Add debbugs-*-tagged commands

[Michael Albinus]

branch: master
commit 7a63b77516fc953441c619a0fe15acf7eb8967af
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Add debbugs-*-tagged commands
    
    * packages/debbugs/debbugs-gnu.el (debbugs-gnu-tagged):
    * packages/debbugs/debbugs-org.el (debbugs-org-tagged): New defuns.
    
    * packages/debbugs/debbugs-ug.texi (Retrieving Bugs):
    Add `debbugs-gnu-tagged' and `debbugs-org-tagged'.
---
 packages/debbugs/debbugs-gnu.el  |  12 +++++
 packages/debbugs/debbugs-org.el  |  14 +++++
 packages/debbugs/debbugs-ug.info | 107 +++++++++++++++++++++------------------
 packages/debbugs/debbugs-ug.texi |  12 +++++
 4 files changed, 97 insertions(+), 48 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 303b625..8941869 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -140,6 +140,12 @@
 ;; `debbugs-gnu-default-packages', and tagged with "patch".  This is
 ;; useful for bug triages.
 
+;; Another special command is
+;;
+;;    M-x debbugs-gnu-tagged
+
+;; This command shows just the locally tagged bugs.
+
 ;; Finally, if you simply want to list some bugs with known bug
 ;; numbers, call the command
 ;;
@@ -606,6 +612,12 @@ depend on PHRASE being a string, or nil.  See Info node
   (debbugs-gnu nil debbugs-gnu-default-packages nil nil "patch"))
 
 ;;;###autoload
+(defun debbugs-gnu-tagged ()
+  "List the bug reports that have been tagged locally."
+  (interactive)
+  (debbugs-gnu '("tagged")))
+
+;;;###autoload
 (defun debbugs-gnu (severities &optional packages archivedp suppress tags)
   "List all outstanding bugs."
   (interactive
diff --git a/packages/debbugs/debbugs-org.el b/packages/debbugs/debbugs-org.el
index 456460e..dd69438 100644
--- a/packages/debbugs/debbugs-org.el
+++ b/packages/debbugs/debbugs-org.el
@@ -99,6 +99,12 @@
 ;; `debbugs-gnu-default-packages', and tagged with "patch".  This is
 ;; useful for bug triages.
 
+;; Another special command is
+;;
+;;    M-x debbugs-org-tagged
+
+;; This command shows just the locally tagged bugs.
+
 ;; Finally, if you simply want to list some bugs with known bug
 ;; numbers, call the command
 ;;
@@ -164,6 +170,14 @@ marked as \"client-side filter\"."
     (call-interactively 'debbugs-gnu-patches)))
 
 ;;;###autoload
+(defun debbugs-org-tagged ()
+  "List the bug reports that have been tagged locally."
+  (interactive)
+  (cl-letf (((symbol-function 'debbugs-gnu-show-reports)
+            #'debbugs-org-show-reports))
+    (call-interactively 'debbugs-gnu-tagged)))
+
+;;;###autoload
 (defun debbugs-org ()
   "List all outstanding bugs."
   (interactive)
diff --git a/packages/debbugs/debbugs-ug.info b/packages/debbugs/debbugs-ug.info
index 0d3b124..06519cb 100644
--- a/packages/debbugs/debbugs-ug.info
+++ b/packages/debbugs/debbugs-ug.info
@@ -155,6 +155,15 @@ prefix.
 
      *note Presenting Bugs:: for the presentation of the results.
 
+ -- Command: debbugs-gnu-tagged
+ -- Command: debbugs-org-tagged
+
+     The commands 'debbugs-gnu-tagged' and 'debbugs-org-tagged' show
+     all bugs tagged locally.  This list is useful for keeping bugs
+     you are currently working on.
+
+     *note Presenting Bugs:: for the presentation of the results.
+
  -- User Option: debbugs-show-progress
 
      If this user option is non-'nil', there is a progress report when
@@ -715,10 +724,12 @@ Command Index
 * debbugs-gnu-patches:                   Retrieving Bugs.    (line 86)
 * debbugs-gnu-pick-commits:              Posting Patches.    (line 16)
 * debbugs-gnu-search:                    Searching Bugs.     (line 15)
+* debbugs-gnu-tagged:                    Retrieving Bugs.    (line 96)
 * debbugs-org:                           Retrieving Bugs.    (line 17)
 * debbugs-org-bugs:                      Retrieving Bugs.    (line 70)
 * debbugs-org-patches:                   Retrieving Bugs.    (line 87)
 * debbugs-org-search:                    Searching Bugs.     (line 16)
+* debbugs-org-tagged:                    Retrieving Bugs.    (line 97)
 
 
 File: debbugs-ug.info,  Node: Variable Index,  Next: Key Index,  Prev: Command 
Index,  Up: Top
@@ -747,7 +758,7 @@ Variable Index
 * debbugs-gnu-suppress-closed:           Tabulated Lists.   (line  79)
 * debbugs-gnu-trunk-directory:           Applying Patches.  (line  18)
 * debbugs-org-severity-priority:         TODO Items.        (line  10)
-* debbugs-show-progress:                 Retrieving Bugs.   (line  96)
+* debbugs-show-progress:                 Retrieving Bugs.   (line 105)
 
 
 File: debbugs-ug.info,  Node: Key Index,  Next: Mail Command Index,  Prev: 
Variable Index,  Up: Top
@@ -1129,52 +1140,52 @@ Debbugs control mailserver commands
 Tag Table:
 Node: Top1097
 Node: Retrieving Bugs2704
-Node: Searching Bugs7071
-Ref: Searching Bugs-Footnote-111621
-Ref: Searching Bugs-Footnote-211709
-Node: Presenting Bugs11800
-Node: Tabulated Lists12462
-Node: TODO Items16301
-Node: Control Messages17622
-Node: Applying Patches21139
-Node: Posting Patches22529
-Node: Customizing debbugs-gnu-pick-commits25014
-Node: Minor Mode25714
-Node: Command Index26990
-Node: Variable Index27850
-Node: Key Index29366
-Node: Mail Command Index31074
-Ref: Mail Command Index: reassign31227
-Ref: Mail Command Index: reopen31993
-Ref: Mail Command Index: found33147
-Ref: Mail Command Index: notfound34228
-Ref: Mail Command Index: fixed34637
-Ref: Mail Command Index: notfixed35083
-Ref: Mail Command Index: submitter35706
-Ref: Mail Command Index: forwarded36100
-Ref: Mail Command Index: notforwarded36718
-Ref: Mail Command Index: retitle36919
-Ref: Mail Command Index: severity37303
-Ref: Mail Command Index: clone37634
-Ref: Mail Command Index: merge38398
-Ref: Mail Command Index: forcemerge39785
-Ref: Mail Command Index: unmerge40229
-Ref: Mail Command Index: tags40932
-Ref: Mail Command Index: block41998
-Ref: Mail Command Index: unblock42035
-Ref: Mail Command Index: close42520
-Ref: Mail Command Index: package43170
-Ref: Mail Command Index: owner43782
-Ref: Mail Command Index: noowner44145
-Ref: Mail Command Index: archive44318
-Ref: Mail Command Index: unarchive44459
-Ref: Mail Command Index: #44752
-Ref: Mail Command Index: quit45012
-Ref: Mail Command Index: stop45019
-Ref: Mail Command Index: thank45026
-Ref: Mail Command Index: thanks45034
-Ref: Mail Command Index: thankyou45043
-Ref: Mail Command Index: thank you45054
-Ref: Mail Command Index: --45066
+Node: Searching Bugs7376
+Ref: Searching Bugs-Footnote-111926
+Ref: Searching Bugs-Footnote-212014
+Node: Presenting Bugs12105
+Node: Tabulated Lists12767
+Node: TODO Items16606
+Node: Control Messages17927
+Node: Applying Patches21444
+Node: Posting Patches22834
+Node: Customizing debbugs-gnu-pick-commits25319
+Node: Minor Mode26019
+Node: Command Index27295
+Node: Variable Index28297
+Node: Key Index29813
+Node: Mail Command Index31521
+Ref: Mail Command Index: reassign31674
+Ref: Mail Command Index: reopen32440
+Ref: Mail Command Index: found33594
+Ref: Mail Command Index: notfound34675
+Ref: Mail Command Index: fixed35084
+Ref: Mail Command Index: notfixed35530
+Ref: Mail Command Index: submitter36153
+Ref: Mail Command Index: forwarded36547
+Ref: Mail Command Index: notforwarded37165
+Ref: Mail Command Index: retitle37366
+Ref: Mail Command Index: severity37750
+Ref: Mail Command Index: clone38081
+Ref: Mail Command Index: merge38845
+Ref: Mail Command Index: forcemerge40232
+Ref: Mail Command Index: unmerge40676
+Ref: Mail Command Index: tags41379
+Ref: Mail Command Index: block42445
+Ref: Mail Command Index: unblock42482
+Ref: Mail Command Index: close42967
+Ref: Mail Command Index: package43617
+Ref: Mail Command Index: owner44229
+Ref: Mail Command Index: noowner44592
+Ref: Mail Command Index: archive44765
+Ref: Mail Command Index: unarchive44906
+Ref: Mail Command Index: #45199
+Ref: Mail Command Index: quit45459
+Ref: Mail Command Index: stop45466
+Ref: Mail Command Index: thank45473
+Ref: Mail Command Index: thanks45481
+Ref: Mail Command Index: thankyou45490
+Ref: Mail Command Index: thank you45501
+Ref: Mail Command Index: --45513
 
 End Tag Table
diff --git a/packages/debbugs/debbugs-ug.texi b/packages/debbugs/debbugs-ug.texi
index 8121f7b..6ac095b 100644
--- a/packages/debbugs/debbugs-ug.texi
+++ b/packages/debbugs/debbugs-ug.texi
@@ -175,6 +175,18 @@ This is useful for bug triages.
 @ref{Presenting Bugs} for the presentation of the results.
 @end deffn
 
+
+@deffn  {Command} debbugs-gnu-tagged
+@deffnx {Command} debbugs-org-tagged
+
+The commands @code{debbugs-gnu-tagged} and @code{debbugs-org-tagged}
+show all bugs tagged locally.  This list is useful for keeping bugs
+you are currently working on.
+
+@ref{Presenting Bugs} for the presentation of the results.
+@end deffn
+
+
 @defopt debbugs-show-progress
 
 If this user option is non-@code{nil}, there is a progress report when