diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-08-19 09:36:26 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-08-19 09:36:26 +0200 |
commit | a017e8b8bf4ee1bbdcd52746b7bc7cbe0f1efb85 (patch) | |
tree | 7a015e4b7c1f842bc8ff54d4699425f3462b8633 /helm-elisp-package.el | |
parent | d20151709b8412edbb7b1153a90e917d96dad3f7 (diff) |
Handle installed packages that are dependencies
* helm-elisp-package.el (helm-el-package-menu--find-upgrades): Use package--used-elsewhere-p.
Diffstat (limited to 'helm-elisp-package.el')
-rw-r--r-- | helm-elisp-package.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/helm-elisp-package.el b/helm-elisp-package.el index e3a3682a..b796e236 100644 --- a/helm-elisp-package.el +++ b/helm-elisp-package.el @@ -180,15 +180,17 @@ (cl-loop for entry in helm-el-package--tabulated-list for pkg-desc = (car entry) for status = (package-desc-status pkg-desc) - when (member status '("installed" "unsigned")) - collect pkg-desc into installed when (string= status "dependency") collect pkg-desc into dependencies + when (package--used-elsewhere-p pkg-desc) + collect pkg-desc into installed-as-dep + when (member status '("installed" "unsigned")) + collect pkg-desc into installed when (member status '("available" "new")) collect (cons (package-desc-name pkg-desc) pkg-desc) into available finally return ;; Always try to upgrade dependencies before installed. - (cl-loop with all = (append dependencies installed) + (cl-loop with all = (append dependencies installed-as-dep installed) with extra-upgrades for pkg in all for name = (package-desc-name pkg) @@ -201,7 +203,7 @@ when (and avail-pkg (member pkg dependencies)) do (setq extra-upgrades (append (helm-el-package--get-installed-to-recompile - installed name) + (append installed-as-dep installed) name) extra-upgrades)) when (and avail-pkg (version-list-< |