diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-16 11:08:59 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-16 17:05:58 +0100 |
| commit | fe5b6672b409edd89dc4ddfb3a122b6e472725b5 (patch) | |
| tree | c733247c5e0471eaaf55bc3f844843abf3e5434a /orderless.el | |
| parent | 37c00837369e3938e1ec71259298d18622355c7e (diff) | |
Add comment regarding the orderless--component-compiler calls
Diffstat (limited to 'orderless.el')
| -rw-r--r-- | orderless.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/orderless.el b/orderless.el index 534ae34..fbdefe3 100644 --- a/orderless.el +++ b/orderless.el @@ -275,6 +275,9 @@ regexp." (defun orderless-without (component) "Match strings that do *not* match COMPONENT." + ;; TODO I am not happy that we call the internal orderless--compile-component + ;; function here. Somehow we have not yet reached sufficient elegance here in + ;; this patch. :( (pcase-let ((`(,pred . ,regexp) (orderless--compile-component component))) (when (or pred regexp) (lambda (str) @@ -293,6 +296,9 @@ regexp." (when-let ((aff (or (completion-metadata-get metadata 'affixation-function) (plist-get completion-extra-properties :affixation-function)))) (lambda (cand) (caddr (funcall aff (list cand)))))))) + ;; TODO I am not happy that we call the internal orderless--compile-component + ;; function here. Somehow we have not yet reached sufficient elegance here in + ;; this patch. :( (pcase-let ((`(,pred . ,regexp) (orderless--compile-component component))) (when (or pred regexp) (lambda (str) |