From 8334021e5a9918ba8beb56fd35643c6e248e9eec Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 1 Feb 2015 20:50:13 -0200 Subject: [PATCH] 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 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 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)) -- 2.39.2