diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-15 18:47:43 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-15 23:45:26 +0100 |
| commit | 0e9fe2e90231cd1bc8895ff99bbff6b7a97db60f (patch) | |
| tree | b575d8ca7d932b3e0291d0be0af6e7457d622d40 | |
| parent | 10bce1bcde5dc7cd3796bb9202dd0eae72e1a088 (diff) | |
orderless-annotation: Also check completion-extra-properties
| -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))) |