Re: package.el dependencies

[Thierry Volpiatto]

The first thing we have to fix now is package--get-deps, Arthur, yes you
are right we should recurse without the 'direct flag, so we should use
this version:

(defun package--get-deps (pkg &optional only)
  (let* ((pkg-desc (cadr (assq pkg package-alist)))
         (direct-deps (cl-loop for p in (package-desc-reqs pkg-desc)
                               for name = (car p)
                               when (assq name package-alist)
                               collect name))
         (indirect-deps (unless (eq only 'direct)
                          (cl-loop for p in direct-deps
                                append (package--get-deps p) into lst
                                finally return (delete-dups lst)))))
    (cl-case only
      (direct   direct-deps)
      (separate (list direct-deps indirect-deps))
      (indirect indirect-deps)
      (t        (append direct-deps indirect-deps)))))


Can you push it ?

-- 
Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997