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

Fix package manager not :ignore'ing packages

Browse Source
This commit is contained in:
Henrik Lissner
2018-06-13 22:15:08 +02:00
parent 6a6652d394
commit b6f9bc9675
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/autoload/packages.el
View File

@ -264,7 +264,7 @@ depended on.
Used by `doom//packages-autoremove'."
(let ((package-selected-packages
(mapcar #'car (doom-get-packages :disabled nil))))
(mapcar #'car (doom-get-packages :ignored nil :disabled nil))))
(append (package--removable-packages)
(cl-loop for pkg in package-selected-packages
if (and (doom-package-different-backend-p pkg)
@ -272,7 +272,7 @@ Used by `doom//packages-autoremove'."
collect pkg))))
;;;###autoload
(cl-defun doom-get-missing-packages (&key (ignored 'any))
(defun doom-get-missing-packages (&optional include-ignored-p)
"Return a list of requested packages that aren't installed or built-in, but
are enabled (with a `package!' directive). Each element is a list whose CAR is
the package symbol, and whose CDR is a plist taken from that package's
@ -284,7 +284,7 @@ i.e. they have an :ignore property.
Used by `doom//packages-install'."
(doom-initialize-packages)
(cl-loop for (name . plist)
in (doom-get-packages :ignored ignored :disabled nil)
in (doom-get-packages :ignored (if include-ignored-p 'any) :disabled nil)
if (and (or (plist-get plist :pin)
(not (assq name package--builtins)))
(or (not (assq name package-alist))