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(lib): modulep!: returning t for disabled modules

Browse Source 
If passed negated flags.

Fix: #8289
This commit is contained in:
Henrik Lissner
2025-02-25 15:18:32 -05:00
parent bc3f0ce718
commit 56ce6cc284
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/doom-lib.el
View File

@ -1453,11 +1453,13 @@ To interpolate dynamic values, use comma:
For more about modules and flags, see `doom!'."
(if (keywordp group)
(if flags
`(doom-module--has-flag-p
(doom-module (backquote ,group) (backquote ,module) :flags)
(backquote ,flags))
`(and (get (backquote ,group) (backquote ,module)) t))
(let ((ctxtform `(get (backquote ,group) (backquote ,module))))
(if flags
`(when-let* ((ctxt ,ctxtform))
(doom-module--has-flag-p
(doom-module-context-flags ctxt)
(backquote ,flags)))
`(and ,ctxtform t)))
(let ((flags (delq nil (cons group (cons module flags)))))
(if (doom-module-context-index doom-module-context)
`(doom-module--has-flag-p