emacs-lisp/package.el (package--get-deps): Fix returning duplicates.

This commit is contained in:
Artur Malabarba 2015-02-02 13:26:40 -02:00
parent ef6fa2fe0d
commit 8ad2ee33a1
2 changed files with 4 additions and 3 deletions

View file

@ -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 <michael.albinus@gmx.de>

View file

@ -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))