emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
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)))