[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8334021 1/2: package.el (package--get-deps): Fix fo
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master 8334021 1/2: package.el (package--get-deps): Fix for indirect dependencies. |
Date: |
Sun, 01 Feb 2015 23:03:54 +0000 |
branch: master
commit 8334021e5a9918ba8beb56fd35643c6e248e9eec
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
package.el (package--get-deps): Fix for indirect dependencies.
---
lisp/ChangeLog | 1 +
lisp/emacs-lisp/package.el | 9 +++------
2 files changed, 4 insertions(+), 6 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 149c807..5498967 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 <address@hidden>
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c322ce8..eae7562 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))