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

fix(lib): package! not overriding defaults

Browse Source 
This regression was introduced in 5a5195b; it broke `package!`s ability
to override the recipes of packages declared by other modules, due to
some API assumptions that aren't true yet (in unpushed post 3.1 work).

Amend: 5a5195b84d
Fix: #6901
This commit is contained in:
Henrik Lissner
2022-10-22 20:02:36 +02:00
parent d25ff46d46
commit a1f8063485
1 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/doom-packages.el
View File

@ -458,15 +458,17 @@ also be a list of module keys."
(car key) (cdr key) doom-module-packages-file)) (car key) (cdr key) doom-module-packages-file))
(doom-packages--read file nil 'noerror)))) (doom-packages--read file nil 'noerror))))
(doom-context-with 'packages (doom-context-with 'packages
(when (assq :user module-list) (let ((user? (assq :user module-list)))
(when user?
;; We load the private packages file twice to populate ;; We load the private packages file twice to populate
;; `doom-disabled-packages' disabled packages are seen ASAP, and a ;; `doom-disabled-packages' disabled packages are seen ASAP...
;; second time to ensure privately overridden packages are properly
;; overwritten.
(let (doom-packages) (let (doom-packages)
(read-packages (cons :user nil)))) (read-packages (cons :user nil))))
(mapc #'read-packages module-list) (mapc #'read-packages module-list)
(nreverse doom-packages))))) ;; ...Then again to ensure privately overriden packages are properly
;; overwritten.
(if user? (read-packages (cons :user nil)))
(nreverse doom-packages))))))
(defun doom-package-pinned-list () (defun doom-package-pinned-list ()
"Return an alist mapping package names (strings) to pinned commits (strings)." "Return an alist mapping package names (strings) to pinned commits (strings)."