[Top][All Lists]

[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 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]