diff options
| -rw-r--r-- | orderless.el | 4 |
1 files changed, 3 insertions, 1 deletions
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))) |