awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

doom-install-package: let -> let*

Browse Source
This commit is contained in:
Henrik Lissner
2017-11-13 18:00:46 +01:00
parent eb01401513
commit cc3f2c76d9
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/autoload/packages.el
View File

@ -255,12 +255,13 @@ example; the package name can be omitted)."
(when (doom-package-different-backend-p name) (when (doom-package-different-backend-p name)
(doom-delete-package name t)) (doom-delete-package name t))
(user-error "%s is already installed" name)) (user-error "%s is already installed" name))
(let ((plist (or plist (cdr (assq name doom-packages)))) (let* ((inhibit-message (not doom-debug-mode))
(inhibit-message (not doom-debug-mode)) (plist (or plist (cdr (assq name doom-packages))))
(recipe (plist-get plist :recipe)) (recipe (plist-get plist :recipe))
quelpa-upgrade-p) quelpa-upgrade-p)
(cond (recipe (quelpa recipe)) (if recipe
(t (package-install name))) (quelpa recipe)
(package-install name))
(when (package-installed-p name) (when (package-installed-p name)
(cl-pushnew (cons name plist) doom-packages :test #'eq :key #'car) (cl-pushnew (cons name plist) doom-packages :test #'eq :key #'car)
t))) t)))