From 0e9fe2e90231cd1bc8895ff99bbff6b7a97db60f Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Thu, 15 Feb 2024 18:47:43 +0100 Subject: orderless-annotation: Also check completion-extra-properties --- orderless.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/orderless.el b/orderless.el index 93a1fd8..2e5831f 100644 --- a/orderless.el +++ b/orderless.el @@ -287,7 +287,9 @@ at a word boundary in the candidate. This is similar to the (buffer-substring-no-properties (minibuffer-prompt-end) (point)) table minibuffer-completion-predicate)) (fun (or (completion-metadata-get metadata 'annotation-function) - (when-let ((aff (completion-metadata-get metadata 'affixation-function))) + (plist-get completion-extra-properties :annotation-function) + (when-let ((aff (or (completion-metadata-get metadata 'affixation-function) + (plist-get completion-extra-properties :affixation-function)))) (lambda (cand) (caddr (funcall aff (list cand)))))))) (lambda (str) (when-let ((ann (funcall fun str))) -- cgit v1.0