From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Mon, 2 Feb 2015 15:26:40 +0000 (-0200)
Subject: emacs-lisp/package.el (package--get-deps): Fix returning duplicates.
X-Git-Tag: emacs-25.0.90~2008^2~142
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ad2ee33a1107afe2d35e3ba4506d45dbb4c13d2;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1c0518b6e21..382b6537af6 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  <michael.albinus@gmx.de>
 
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c4a658b3d2e..16271060626 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))