[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 08bd97c: Fix previous patch,
Michael Albinus <=