branch: externals/consult
commit d4a0fb66c7a08f69fd104d9fd7e5b2fb7f360f0e
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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
