branch: externals/consult
commit 511d8c0b072a660009fcba1f461dba9e21bc0cf0
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Add missing case-fold-search let-bindings
---
consult.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index b912c83f9d..08e4552f0b 100644
--- a/consult.el
+++ b/consult.el
@@ -3742,7 +3742,8 @@ narrowing and the settings `consult-goto-line-numbers' and
The list of features is searched for files belonging to the modes.
From these files, the commands are extracted."
- (let* ((buffer (current-buffer))
+ (let* ((case-fold-search)
+ (buffer (current-buffer))
(command-filter (consult--regexp-filter (seq-filter #'stringp
consult-mode-command-filter)))
(feature-filter (seq-filter #'symbolp consult-mode-command-filter))
(minor-hash (consult--string-hash minor-mode-list))
@@ -4385,7 +4386,8 @@ AS is a conversion function."
(when (or filter mode as root)
(let ((mode (ensure-list mode))
(exclude-re (consult--regexp-filter exclude))
- (include-re (consult--regexp-filter include)))
+ (include-re (consult--regexp-filter include))
+ (case-fold-search))
(consult--keep! buffers
(and
(or (not mode)
