[ELPA-diffs] /srv/bzr/emacs/elpa r284: * debbugs-gnu.el (debbugs-gnu-usertags): Show also local tags.

[Michael Albinus]

------------------------------------------------------------
revno: 284
committer: Michael Albinus <address@hidden
branch nick: elpa
timestamp: Fri 2012-10-26 08:54:21 +0200
message:
  * debbugs-gnu.el (debbugs-gnu-usertags): Show also local tags.
modified:
  packages/debbugs/debbugs-gnu.el

=== modified file 'packages/debbugs/debbugs-gnu.el'
--- a/packages/debbugs/debbugs-gnu.el   2012-10-25 09:43:50 +0000
+++ b/packages/debbugs/debbugs-gnu.el   2012-10-26 06:54:21 +0000
@@ -1170,6 +1170,13 @@
            (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 @@
 
        ;; 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 @@
                        (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)