branch: master
commit 2d45f0035d03c74b4abcfa70564abea222ac0d0c
Author: Michael Albinus <michael.albi...@gmx.de>
Commit: Michael Albinus <michael.albi...@gmx.de>
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-rescan): New argument
NOCACHE.
(debbugs-gnu-default-packages): Add "dejagnu" and "gnuzilla".
* packages/debbugs/debbugs.el (debbugs-get-status, debbugs-get-usertag):
Adapt docstring.
---
packages/debbugs/debbugs-gnu.el | 13 +++++++++----
packages/debbugs/debbugs.el | 10 +++++-----
2 files changed, 14 insertions(+), 9 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 2e3e24e..cd2e4e5 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -265,11 +265,13 @@ If nil, the value of `send-mail-function' is used
instead."
(const "coreutils")
(const "cppi")
(const "debbugs.gnu.org")
+ (const "dejagnu")
(const "diffutils")
(const "emacs")
(const "emacs-xwidgets")
(const "fm")
(const "gnus")
+ (const "gnuzilla")
(const "grep")
(const "guile")
(const "guix")
@@ -1033,14 +1035,17 @@ Used instead of `tabulated-list-print-entry'."
'debbugs-gnu-manual)
map))
-(defun debbugs-gnu-rescan ()
- "Rescan the current set of bug reports."
- (interactive)
+(defun debbugs-gnu-rescan (nocache)
+ "Rescan the current set of bug reports.
+If NOCACHE is non-nil, bug information is retrieved from the debbugs server.
+Interactively, it is non-nil with the prefix argument."
+ (interactive
+ (list current-prefix-arg))
(let ((id (debbugs-gnu-current-id))
(debbugs-gnu-current-query debbugs-gnu-local-query)
(debbugs-gnu-current-filter debbugs-gnu-local-filter)
(debbugs-gnu-current-suppress debbugs-gnu-local-suppress)
- (debbugs-cache-expiry (if current-prefix-arg t debbugs-cache-expiry)))
+ (debbugs-cache-expiry (if nocache t debbugs-cache-expiry)))
(debbugs-gnu-show-reports)
(when id
(debbugs-gnu-goto id))))
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index af23cf4..80f5beb 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -371,7 +371,7 @@ Every returned entry is an association list with the
following attributes:
`tags': The status of the bug report, a list of strings. This
can be \"confirmed\", \"fixed\", \"pending\", \"notabug\",
\"wontfix\", \"unreproducible\", \"moreinfo\", \"security\" or
- \"patch\".
+ \"patch\". The exact set of tags depends on the Debbugs port.
`pending': The string \"pending\", \"forwarded\", \"fixed\" or \"done\".
@@ -427,15 +427,15 @@ Example:
\(\(\(cache_time . 1469716026.4981334)
\(bug_num . 10)
\(source . \"unknown\")
- \(date . 1203606305.0)
+ \(date . 1203606305)
\(msgid . \"<87zltuz7eh....@freemail.hu>\")
\(severity . \"wishlist\")
\(owner . \"Magnus Henoch <ma...@freemail.hu>\")
- \(log_modified . 1261079402.0)
+ \(log_modified . 1261079402)
\(location . \"db-h\")
\(subject . \"url-gw should support HTTP CONNECT proxies\")
\(originator . \"Magnus Henoch <ma...@freemail.hu>\")
- \(last_modified . 1271200046.0)
+ \(last_modified . 1271200046)
\(pending . \"pending\")
\(package \"emacs\")))"
(let (cached-bugs)
@@ -578,7 +578,7 @@ Valid keywords are:
:tag -- A string applied as user tag. Often, it is a
subproduct identification, like \"cedet\" or \"tramp\" for the
- package \"emacs\".
+ package \"emacs\". This is NOT a tag of the TAGS list mentioned above.
If there is no :tag entry, no bug numbers will be returned but a list of
existing user tags for :user.
