[Top][All Lists]

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

[elpa] master 08bd97c: Fix previous patch

From: Michael Albinus
Subject: [elpa] master 08bd97c: Fix previous patch
Date: Thu, 21 Jun 2018 09:52:52 -0400 (EDT)

branch: master
commit 08bd97c3848324bb18f1e7101044974488c073f9
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Fix previous patch
 packages/debbugs/debbugs-gnu.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index f9383bc..0b9184a 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -728,14 +728,11 @@ are taken from the cache instead."
              (setq packages (delete elt packages))))
          (setq words (append words packages)))
        (when (setq merged (cdr (assq 'mergedwith status)))
-         (setq words (cons (if (numberp merged)
-                               merged
-                             (mapconcat 'number-to-string merged ","))
-                           words)))
+         (setq words (append (mapcar 'number-to-string merged) words)))
        ;; `words' could contain the same word twice, for example
-       ;; "fixed" from keywords and pending.
-       (setq words
-             (mapconcat 'identity (delete-duplicates words :test 'equal) ","))
+       ;; "fixed" from `keywords' and `pending'.
+       (setq words (mapconcat
+                    'identity (cl-delete-duplicates words :test 'equal) ","))
        (when (or (not merged)
                  (not (let ((found nil))
                         (dolist (id (if (listp merged)

reply via email to

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