[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 48acf06: consult--static-if: Specify lexical sc
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 48acf06: consult--static-if: Specify lexical scoping |
Date: |
Sat, 10 Jul 2021 13:57:06 -0400 (EDT) |
branch: externals/consult
commit 48acf068da5120768873d2598481c7f27577c9de
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult 48acf06: consult--static-if: Specify lexical scoping,
ELPA Syncer <=