branch: externals/consult
commit 48acf068da5120768873d2598481c7f27577c9de
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
consult--static-if: Specify lexical scoping
---
consult.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index adf59ea..8769127 100644
--- a/consult.el
+++ b/consult.el
@@ -615,7 +615,7 @@ The line beginning/ending BEG/END is bound in BODY."
(defmacro consult--static-if (cond then &rest else)
"If COND yields non-nil at compile time, do THEN, else do ELSE."
(declare (indent 2))
- (if (eval cond) then (macroexp-progn else)))
+ (if (eval cond 'lexical) then (macroexp-progn else)))
(defun consult--display-width (string)
"Compute width of STRING taking display and invisible properties into
account."
