diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-01 20:50:13 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-01 20:50:13 -0200 |
| commit | 8334021e5a9918ba8beb56fd35643c6e248e9eec (patch) | |
| tree | dac7252f244d6007bd7b11d8629358963d77928f /lisp/emacs-lisp | |
| parent | 5329208bafa0b51b4fe07c185972b1d98af98c1d (diff) | |
| download | emacs-8334021e5a9918ba8beb56fd35643c6e248e9eec.tar.gz emacs-8334021e5a9918ba8beb56fd35643c6e248e9eec.tar.bz2 emacs-8334021e5a9918ba8beb56fd35643c6e248e9eec.zip | |
package.el (package--get-deps): Fix for indirect dependencies.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 9 |
1 files changed, 3 insertions, 6 deletions
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)) |