[elpa] externals/consult ac72854 3/3: Fix consult--highlight-regexps

[ELPA Syncer]

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

    Fix consult--highlight-regexps
---
 consult.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 5862bb8..0e9860e 100644
--- a/consult.el
+++ b/consult.el
@@ -552,8 +552,9 @@ If no capturing groups are used highlight the whole match."
       (let ((m (match-data)))
         (setq m (or (cddr m) m))
         (while m
-          (add-face-text-property (car m) (cadr m)
-                                  'consult-preview-match nil str)
+          (when (car m)
+            (add-face-text-property (car m) (cadr m)
+                                    'consult-preview-match nil str))
           (setq m (cddr m)))))))
 
 (defconst consult--convert-regexp-table