Commit 8ad2ee33 authored by Artur Malabarba's avatar Artur Malabarba

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

parent ef6fa2fe
...@@ -4,6 +4,7 @@ ...@@ -4,6 +4,7 @@
function. function.
(package-initialize): Use it to populate `package-selected-packages'. (package-initialize): Use it to populate `package-selected-packages'.
(package-menu-execute): Clean unnecessary `and'. (package-menu-execute): Clean unnecessary `and'.
(package--get-deps): Fix returning duplicates.
2015-02-02 Michael Albinus <michael.albinus@gmx.de> 2015-02-02 Michael Albinus <michael.albinus@gmx.de>
......
...@@ -1428,9 +1428,9 @@ The file can either be a tar file or an Emacs Lisp file." ...@@ -1428,9 +1428,9 @@ The file can either be a tar file or an Emacs Lisp file."
when (assq name package-alist) when (assq name package-alist)
collect name)) collect name))
(indirect-deps (unless (eq only 'direct) (indirect-deps (unless (eq only 'direct)
(apply #'append (delete-dups
direct-deps (cl-loop for p in direct-deps
(mapcar #'package--get-deps direct-deps))))) append (package--get-deps p))))))
(cl-case only (cl-case only
(direct direct-deps) (direct direct-deps)
(separate (list direct-deps indirect-deps)) (separate (list direct-deps indirect-deps))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment