[elpa] externals/consult d4a0fb66c7 2/3: Fix consult-man highlighting

[ELPA Syncer]

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

    Fix consult-man highlighting
---
 consult.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/consult.el b/consult.el
index e2b565d0c2..0844dc77ca 100644
--- a/consult.el
+++ b/consult.el
@@ -2281,8 +2281,7 @@ BUILDER is the command line builder function."
         (setq highlight (cdr (funcall builder action)))
         (funcall async action))
        ((and (consp action) highlight)
-        (dolist (str action)
-          (funcall highlight str))
+        (mapc highlight action)
         (funcall async action))
        (t (funcall async action))))))
 
@@ -5132,8 +5131,8 @@ the asynchronous search."
   (interactive)
   (man (consult--read
         (consult--async-command #'consult--man-builder
-          (consult--async-transform consult--man-format)
-          (consult--async-highlight #'consult--man-builder))
+          (consult--async-highlight #'consult--man-builder)
+          (consult--async-transform consult--man-format))
         :prompt "Manual entry: "
         :require-match t
         :category 'consult-man