emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 505c6de: Release debbugs 0.21


From: Michael Albinus
Subject: [elpa] master 505c6de: Release debbugs 0.21
Date: Mon, 25 Nov 2019 10:53:52 -0500 (EST)

branch: master
commit 505c6de2e3f4197290ee7ad42ff85bebe08f6d5e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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 <address@hidden>
 ;; 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.
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]