branch: master
commit 505c6de2e3f4197290ee7ad42ff85bebe08f6d5e
Author: Michael Albinus <michael.albi...@gmx.de>
Commit: Michael Albinus <michael.albi...@gmx.de>
Release debbugs 0.21
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-show-reports):
Handle nil log_modified.
(debbugs-gnu-show-all-blocking-reports)
(debbugs-gnu-narrow-to-status, debbugs-gnu-post-patch): Use ´alist-get'.
* packages/debbugs/debbugs.el: Increase Version to 0.21. Do not require
cl-lib.
---
packages/debbugs/debbugs-gnu.el | 20 ++++++++++----------
packages/debbugs/debbugs.el | 4 ++--
2 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index bbf2254..3dbd2f2 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -797,7 +797,7 @@ are taken from the cache instead."
(subject (if (alist-get 'subject status)
(decode-coding-string
(alist-get 'subject status) 'utf-8)))
- (age (- (float-time) (alist-get 'log_modified status)))
+ (age (- (float-time) (or (alist-get 'log_modified status) 0)))
(week (* 60 60 24 7))
merged)
(unless (equal (alist-get 'pending status) "pending")
@@ -1246,12 +1246,12 @@ Interactively, it is non-nil with the prefix argument."
debbugs-gnu-emacs-current-release)))
(let ((blockers
- (cdr
- (assq
- 'blockedby
- (car
- (debbugs-get-status
- (cdr (assoc release debbugs-gnu-emacs-blocking-reports)))))))
+ (alist-get
+ 'blockedby
+ (car
+ (debbugs-get-status
+ (alist-get
+ release debbugs-gnu-emacs-blocking-reports nil nil #'equal)))))
(id (debbugs-gnu-current-id t))
(inhibit-read-only t)
status)
@@ -1280,7 +1280,7 @@ Subject fields."
(goto-char (point-min))
(while (not (eobp))
(setq status (debbugs-gnu-current-status))
- (if (and (not (member string (assq 'keywords status)))
+ (if (and (not (member string (alist-get 'keywords status)))
(not (equal string (alist-get 'severity status)))
(or status-only
(not (string-match
@@ -2040,8 +2040,8 @@ with `patch'."
(dolist (patch (directory-files dir t "\\`[^.]"))
(mml-attach-file patch type "patch" disposition))
(when (and (not (member
- "patch" (assq 'tags (car (debbugs-get-status
- bugnum)))))
+ "patch"
+ (alist-get 'tags (car (debbugs-get-status bugnum)))))
(y-or-n-p "Tag + patch? "))
(debbugs-gnu-make-control-message
"patch" bugnum nil (current-buffer)))))
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 64fb366..4ca46cd 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -5,8 +5,8 @@
;; Author: Michael Albinus <michael.albi...@gmx.de>
;; Keywords: comm, hypermedia
;; Package: debbugs
-;; Version: 0.20
-;; Package-Requires: ((emacs "25.1") (soap-client "3.1.5") (cl-lib "0.5"))
+;; Version: 0.21
+;; Package-Requires: ((emacs "25.1") (soap-client "3.1.5"))
;; This file is not part of GNU Emacs.
