[elpa] externals/marginalia 436cd05 175/241: consult--multi preserves the original candidate

[Stefan Monnier]

branch: externals/marginalia
commit 436cd05d173b0a38df9e289765d0b0dd2bae270a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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