[elpa] externals/marginalia ef4fabf 106/241: add preliminary support for affixation-function

[Stefan Monnier]

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

    add preliminary support for affixation-function
---
 marginalia.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index 281f37f..552c5c5 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -589,6 +589,12 @@ PROP is the property which is looked up."
      ;; we do want the advice triggered for completion-metadata-get
      (when-let (cat (completion-metadata-get metadata 'category))
        (alist-get cat (symbol-value (car marginalia-annotators)))))
+    ('affixation-function
+     ;; We do want the advice triggered for `completion-metadata-get'.
+     ;; Return wrapper around `annotation-function'.
+     (when-let* ((cat (completion-metadata-get metadata 'category))
+                 (annotate (alist-get cat (symbol-value (car 
marginalia-annotators)))))
+       (lambda (cands) (mapcar (lambda (x) (list x (funcall annotate x))) 
cands))))
     ('category
      ;; using alist-get bypasses any advice on completion-metadata-get
      ;; to avoid infinite recursion