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

refactor(lib): backport static-{if,when,unless}

Browse Source 
And deprecate our eval-{if,when}! macros.
This commit is contained in:
Henrik Lissner
2025-04-14 22:58:59 -04:00
parent faea320162
commit a13719af45
4 changed files with 46 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/doom-lib.el
View File

@ -486,22 +486,8 @@ echo-area, but not to *Messages*."
(save-silently t))
(prog1 ,@forms (message ""))))))
(defmacro eval-if! (cond then &rest body)
"Expands to THEN if COND is non-nil, to BODY otherwise.
COND is checked at compile/expansion time, allowing BODY to be omitted entirely
when the elisp is byte-compiled. Use this for forms that contain expensive
macros that could safely be removed at compile time."
(declare (indent 2))
(if (eval cond)
then
(macroexp-progn body)))
(defmacro eval-when! (cond &rest body)
"Expands to BODY if CONDITION is non-nil at compile/expansion time.
See `eval-if!' for details on this macro's purpose."
(declare (indent 1))
(when (eval cond)
(macroexp-progn body)))
(define-obsolete-function-alias 'eval-if! 'static-if "3.0.0")
(define-obsolete-function-alias 'eval-when! 'static-when "3.0.0")
(defmacro versionp! (v1 comp v2 &rest comps)
"Perform compound version checks.