awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-02 14:53:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix: doom-module-context: make error free

Browse Source
This commit is contained in:
Henrik Lissner
2024-10-26 16:57:16 -04:00
parent 9aa4470683
commit 4d83719e58
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/doom-modules.el
View File

@@ -169,13 +169,11 @@ Never set this variable directly, use `with-doom-module'.")
KEY can be a `doom-module-context', `doom-module', or a `doom-module-key' cons KEY can be a `doom-module-context', `doom-module', or a `doom-module-key' cons
cell." cell."
(declare (side-effect-free t)) (declare (side-effect-free t))
(unless key
(error "Invalid module context: %S" key))
(or (pcase (type-of key) (or (pcase (type-of key)
(`doom-module-context key) (`doom-module-context key)
(`doom-module (doom-module->context key)) (`doom-module (ignore-errors (doom-module->context key)))
(`cons (doom-module (car key) (cdr key)))) (`cons (doom-module (car key) (cdr key))))
(error "Invalid module context or key: %S" key))) (make-doom-module-context :key (doom-module-key key))))
(defun doom-module<-context (context) (defun doom-module<-context (context)
"Return a `doom-module' plist from CONTEXT." "Return a `doom-module' plist from CONTEXT."