[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8ad2ee3 2/2: emacs-lisp/package.el (package--get-de
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master 8ad2ee3 2/2: emacs-lisp/package.el (package--get-deps): Fix returning duplicates. |
Date: |
Mon, 02 Feb 2015 15:30:07 +0000 |
branch: master
commit 8ad2ee33a1107afe2d35e3ba4506d45dbb4c13d2
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
emacs-lisp/package.el (package--get-deps): Fix returning duplicates.
---
lisp/ChangeLog | 1 +
lisp/emacs-lisp/package.el | 6 +++---
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1c0518b..382b653 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
function.
(package-initialize): Use it to populate `package-selected-packages'.
(package-menu-execute): Clean unnecessary `and'.
+ (package--get-deps): Fix returning duplicates.
2015-02-02 Michael Albinus <address@hidden>
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c4a658b..1627106 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1428,9 +1428,9 @@ The file can either be a tar file or an Emacs Lisp file."
when (assq name package-alist)
collect name))
(indirect-deps (unless (eq only 'direct)
- (apply #'append
- direct-deps
- (mapcar #'package--get-deps direct-deps)))))
+ (delete-dups
+ (cl-loop for p in direct-deps
+ append (package--get-deps p))))))
(cl-case only
(direct direct-deps)
(separate (list direct-deps indirect-deps))