[Top][All Lists]

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

[elpa] externals/debbugs ffe5b92 231/311: Fix previous patch

From: Stefan Monnier
Subject: [elpa] externals/debbugs ffe5b92 231/311: Fix previous patch
Date: Sun, 29 Nov 2020 18:42:18 -0500 (EST)

branch: externals/debbugs
commit ffe5b92c5510eda36328f79a2dd33175d8482d5c
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

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

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index f9383bc..0b9184a 100644
--- a/debbugs-gnu.el
+++ b/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]