[elpa] externals/debbugs 3371e00 097/311: * debbugs-gnu.el (debbugs-gnu-usertags): Show also local tags.

[Stefan Monnier]

branch: externals/debbugs
commit 3371e00c0677c35b243eb9d5e0e19aaf3931fd5f
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * debbugs-gnu.el (debbugs-gnu-usertags): Show also local tags.
---
 debbugs-gnu.el | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 6eab007..41492ac 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -1170,6 +1170,13 @@ The following commands are available:
            (user-tab-length
             (1+ (apply 'max (length "User") (mapcar 'length packages)))))
 
+       ;; Initialize variables.
+       (when (and (file-exists-p debbugs-gnu-persistency-file)
+                  (not debbugs-gnu-local-tags))
+         (with-temp-buffer
+           (insert-file-contents debbugs-gnu-persistency-file)
+           (eval (read (current-buffer)))))
+
        ;; Create buffer.
        (when (get-buffer buffer-name)
          (kill-buffer buffer-name))
@@ -1183,7 +1190,7 @@ The following commands are available:
 
        ;; Retrieve user tags.
        (dolist (package packages)
-         (dolist (tag (debbugs-get-usertag :package package))
+         (dolist (tag (sort (debbugs-get-usertag :package package) 'string<))
            (add-to-list
             'tabulated-list-entries
             ;; `tabulated-list-id' is the parameter list for `debbugs-gnu'.
@@ -1192,6 +1199,14 @@ The following commands are available:
                        (propertize tag 'mouse-face widget-mouse-face)))
             'append)))
 
+       ;; Add local tags.
+       (when debbugs-gnu-local-tags
+         (add-to-list
+            'tabulated-list-entries
+            `((("tagged"))
+              ,(vector "" (propertize "(local tags)"
+                                      'mouse-face widget-mouse-face)))))
+
        ;; Show them.
        (tabulated-list-init-header)
        (tabulated-list-print)