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

@package: fix catch-all package association with quelpa

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-20 01:13:21 -05:00
parent 19750a6620
commit 4d53af3086
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
core/core-packages.el
View File

@ -347,13 +347,14 @@ them."
(and old-plist (plist-get old-plist :recipe))))
(pkg-pin (or (plist-get plist :pin)
(and old-plist (plist-get old-plist :pin)))))
(when (= 0 (mod (length pkg-recipe) 2))
(plist-put plist :recipe (cons name pkg-recipe)))
(when (and pkg-recipe pkg-pin)
(plist-put plist :pin nil))
(when pkg-recipe
(when (= 0 (mod (length pkg-recipe) 2))
(plist-put plist :recipe (cons name pkg-recipe)))
(when pkg-pin
(plist-put plist :pin nil)))
`(progn
(when ,(and pkg-pin t)
(add-to-list 'package-pinned-packages ,(cons name pkg-pin)))
(cl-pushnew (cons ',name ,pkg-pin) package-pinned-packages :key 'car))
(when ,(and old-plist t)
(assq-delete-all ',name doom-packages))
(push ',(cons name plist) doom-packages))))