branch: externals/marginalia
commit 436cd05d173b0a38df9e289765d0b0dd2bae270a
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
consult--multi preserves the original candidate
---
marginalia.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 106c438..8814e49 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -330,9 +330,9 @@ This hash table is needed to speed up
`marginalia-annotate-binding'.")
;; This annotator is consult-specific, it will annotate commands with
`consult-multi' category
(defun marginalia-annotate-consult-multi (cand)
"Annotate consult-multi CAND with the buffer class."
- (when-let (annotate (alist-get (get-text-property 0 'consult-multi cand)
- (symbol-value (car marginalia-annotators))))
- (funcall annotate (substring cand 1))))
+ (when-let* ((multi (get-text-property 0 'consult-multi cand))
+ (annotate (alist-get (car multi) (symbol-value (car
marginalia-annotators)))))
+ (funcall annotate (cdr multi))))
(defconst marginalia--advice-regexp
(rx bos
