branch: externals/debbugs
commit 08bf0ce84f2d51a8fa8030b55c4dfbd55e27037e
Author: Michael Albinus <michael.albi...@gmx.de>
Commit: Michael Albinus <michael.albi...@gmx.de>
Some Debbugs fixes
* debbugs-gnu.el (debbugs-gnu-package-tabulated-list-print): Fix docstring.
Fix narrowing.
(debbugs-gnu-display-status): Bind `pp-default-function'. Add
timestamp as help-echo for some attributes.
(debbugs-gnu-control-message-keywords)
(debbugs-gnu-make-control-message): Add "archive".
* debbugs-ug.texi (Control Messages): Add "archive".
---
debbugs-gnu.el | 22 +++++++++++++++++-----
debbugs-ug.texi | 5 +++--
2 files changed, 20 insertions(+), 7 deletions(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index cd549e364d..39f7fe1eba 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -707,7 +707,7 @@ depend on PHRASE being a string, or nil. See Info node
(debbugs-gnu debbugs-gnu-applicable-severities packages)))
(defun debbugs-gnu-package-tabulated-list-print ()
- "Print the tabulated list for `tramp-gnu-package'."
+ "Print the tabulated list for `debbugs-gnu-package'."
(let ((inhibit-read-only t)
(entries tabulated-list-entries)
(packages
@@ -729,7 +729,7 @@ depend on PHRASE being a string, or nil. See Info node
x))
entries)))
(when tabulated-list-entries
- (narrow-to-region (point-min) (point-max))
+ (narrow-to-region (point-min) (point-min))
(tabulated-list-print nil 'update)
(goto-char (point-min))
(insert
@@ -1566,7 +1566,8 @@ interesting to you."
debbugs-gnu-local-filter
(debbugs-gnu-current-status)))
(switch-to-buffer "*Bug Status*")
- (let ((inhibit-read-only t))
+ (let ((inhibit-read-only t)
+ (pp-default-function 'pp-29))
(erase-buffer)
(when query
(insert ";; Query\n")
@@ -1579,6 +1580,16 @@ interesting to you."
(when status
(insert ";; Status\n")
(pp status (current-buffer)))
+ (goto-char (point-min))
+ (while
+ (re-search-forward
+ (rx "("
+ (| "cache_time" "last_modified" "fixed_date" "date"
"log_modified")
+ " . " (group (1+ (any "." digit))) ")")
+ nil t)
+ (put-text-property
+ (match-beginning 1) (match-end 1)
+ 'help-echo (current-time-string (read (match-string 1)))))
(goto-char (point-min)))
(set-buffer-modified-p nil)
(special-mode))
@@ -1859,7 +1870,7 @@ returned by `debbugs-gnu-bugs'."
'("serious" "important" "normal" "minor" "wishlist"
"done" "donenotabug" "donewontfix" "doneunreproducible"
"invalid" ; done+notabug+wontfix
- "unarchive" "unmerge" "reopen" "close"
+ "archive" "unarchive" "unmerge" "reopen" "close"
"merge" "forcemerge"
"block" "unblock"
"owner" "noowner"
@@ -2021,7 +2032,8 @@ removed instead."
(insert
(save-excursion ; Point can change while prompting!
(cond
- ((member message '("unarchive" "unmerge" "noowner" "notforwarded"))
+ ((member
+ message '("archive" "unarchive" "unmerge" "noowner" "notforwarded"))
(format "%s %d\n" message bugid))
((equal message "reopen")
(format "reopen %d\ntags %d - fixed patch\n" bugid bugid))
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index d78fa624e8..5b7c682a9c 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -746,8 +746,9 @@ The new bug title is read interactively.
@itemx wishlist
"severity 12345 serious|important|normal|minor|wishlist"
-@item unarchive
-"unarchive 12345"
+@item archive
+@itemx unarchive
+"archive|unarchive 12345"
@item unmerge
"unmerge 12345"
