branch: externals/consult
commit 349d31dbc6ce2120f256ea07f2772ceb0df3522d
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult--multi-annotate: Support affixations (See #565)
---
consult.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index efb91df349..da1cb6673a 100644
--- a/consult.el
+++ b/consult.el
@@ -2283,7 +2283,9 @@ INHERIT-INPUT-METHOD, if non-nil the minibuffer inherits
the input method."
(ann (if annotate
(funcall annotate (cdr (get-text-property 0 'multi-category
cand)))
(plist-get src :name))))
- (and ann (concat align ann))))
+ (pcase ann
+ ((pred stringp) (concat align ann))
+ (`(,c ,p ,s) (list c p (concat align s))))))
(defun consult--multi-group (sources cand transform)
"Return title of candidate CAND or TRANSFORM the candidate given SOURCES."
