diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2018-09-27 07:25:09 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2018-10-05 20:47:15 +0200 |
| commit | 79237a83a6edd54e3d46ee68b2e539e6bc512197 (patch) | |
| tree | ee98202f6cf18129e732748d58679ef05cddc330 | |
| parent | 46157453fee320658871c4ca4e0c57e80de77b42 (diff) | |
Simplify helm-el-package-install-1
* helm-elisp-package.el (helm-el-package-install-1): Do it.
| -rw-r--r-- | helm-elisp-package.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/helm-elisp-package.el b/helm-elisp-package.el index f446e280..be0de6b4 100644 --- a/helm-elisp-package.el +++ b/helm-elisp-package.el @@ -120,10 +120,9 @@ (cl-loop with mkd = pkg-list for p in mkd for id = (get-text-property 0 'tabulated-list-id p) - do (package-install - (if (fboundp 'package-desc-name) id (car id))) - collect (if (fboundp 'package-desc-full-name) id (car id)) - into installed-list + for pkg = (if (fboundp 'package-desc-name) id (car id)) + do (package-install pkg) + collect pkg into installed-list finally do (if (fboundp 'package-desc-full-name) (message (format "%d packages installed:\n(%s)" (length installed-list) |