[elpa] externals/consult 44f8248 1/2: find does not support non-capturing groups

[ELPA Syncer]

branch: externals/consult
commit 44f8248d19f963ac51ae3dd5ff1dceaa2b53267e
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    find does not support non-capturing groups
---
 consult.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 0fa5437..2c0459a 100644
--- a/consult.el
+++ b/consult.el
@@ -4223,7 +4223,13 @@ INITIAL is inital input."
   (let ((type (consult--find-regexp-type)))
     (setq input (consult--command-split input))
     (append (split-string-and-unquote (plist-get config :args))
-            (cdr (mapcan (lambda (x) `("-and" "-iregex" ,(format ".*%s.*" x)))
+            (cdr (mapcan (lambda (x)
+                           `("-and" "-iregex"
+                             ,(format ".*%s.*"
+                                      ;; HACK Replace non-capturing groups 
with capturing groups.
+                                      ;; GNU find does not support 
non-capturing groups.
+                                      (replace-regexp-in-string
+                                       "\\\\(\\?:" "\\(" x 'fixedcase 
'literal))))
                          (consult--compile-regexp (car input) type)))
             (cdr input))))