[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master c4c741a: Minor debbugs fixes
From: |
Michael Albinus |
Subject: |
[elpa] master c4c741a: Minor debbugs fixes |
Date: |
Mon, 29 Feb 2016 08:57:34 +0000 |
branch: master
commit c4c741ae9e14968aae6d8d684367c1248fcf36ea
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Minor debbugs fixes
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-show-reports):
Fix docstring. Let-bind also `debbugs-cache-expiry'.
---
packages/debbugs/debbugs-gnu.el | 22 +++++++++++++---------
1 files changed, 13 insertions(+), 9 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 77f9cc5..d22dd81 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -579,7 +579,9 @@ marked as \"client-side filter\"."
(t (apply 'debbugs-get-bugs args)))))
(defun debbugs-gnu-show-reports (&optional offline)
- "Show bug reports."
+ "Show bug reports.
+If OFFLINE is non-nil, the query is not sent to the server. Bugs
+are taken from the cache instead."
(let ((inhibit-read-only t)
(buffer-name "*Emacs Bugs*"))
;; The tabulated mode sets several local variables. We must get
@@ -591,14 +593,16 @@ marked as \"client-side filter\"."
;; Print bug reports.
(dolist (status
- (apply 'debbugs-get-status
- (if offline
- (let ((ids nil))
- (maphash (lambda (key elem)
- (push (cdr (assq 'id elem)) ids))
- debbugs-cache-data)
- (sort ids '<))
- (debbugs-gnu-get-bugs debbugs-gnu-local-query))))
+ (let ((debbugs-cache-expiry (if offline nil debbugs-cache-expiry))
+ ids)
+ (apply 'debbugs-get-status
+ (if offline
+ (progn
+ (maphash (lambda (key _elem)
+ (push key ids))
+ debbugs-cache-data)
+ (sort ids '<))
+ (debbugs-gnu-get-bugs debbugs-gnu-local-query)))))
(let* ((id (cdr (assq 'id status)))
(words
(mapconcat
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master c4c741a: Minor debbugs fixes,
Michael Albinus <=