From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sun, 1 Feb 2015 22:50:13 +0000 (-0200)
Subject: package.el (package--get-deps): Fix for indirect dependencies.
X-Git-Tag: emacs-25.0.90~2008^2~149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8334021e5a9918ba8beb56fd35643c6e248e9eec;p=emacs.git

package.el (package--get-deps): Fix for indirect dependencies.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 149c807f230..5498967dba4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* emacs-lisp/package.el (package-selected-packages): Fix :type
 	(package-install): Rename ARG to MARK-SELECTED.
+	(package--get-deps): Fix for indirect dependencies.
 
 2015-02-01  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
 
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c322ce8cc56..eae75621f4c 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1428,12 +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)
-                          (cl-loop for p in direct-deps
-                                   for dep = (cadr (assq p package-alist))
-                                   when (and dep (assq p package-alist))
-                                   append (mapcar 'car
-                                                  (package-desc-reqs
-                                                   dep))))))
+                          (apply #'append
+                            direct-deps
+                            (mapcar #'package--get-deps direct-deps)))))
     (cl-case only
       (direct   direct-deps)
       (separate (list direct-deps indirect-deps))