------------------------------------------------------------
revno: 284
committer: Michael Albinus <michael.albi...@gmx.de
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)
