diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2021-11-28 19:47:40 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2021-11-28 19:47:40 +0100 |
| commit | 4cd6cdd4a264f354c03a2d8dd3ffb54edf275b17 (patch) | |
| tree | 4f86d566ee16958102cbd24c9d4cad8be250ba54 | |
| parent | dcb5a139c4372eea32f33f03f0714898864dea79 (diff) | |
Respect ignore-case for company backends
| -rw-r--r-- | cape.el | 22 |
1 files changed, 13 insertions, 9 deletions
@@ -775,15 +775,19 @@ This feature is experimental." (initial-input (if (stringp prefix) prefix (car-safe prefix)))) (let* ((end (point)) (beg (- end (length initial-input)))) (list beg end - (cape--table-with-properties - (cape--cached-table beg end - (if (cape--company-call backend 'duplicates) - (lambda (input) - (delete-dups (cape--company-call backend 'candidates input))) - (apply-partially #'cape--company-call backend 'candidates)) - (if (cape--company-call backend 'no-cache initial-input) 'never valid)) - :category backend - :sort (not (cape--company-call backend 'sorted))) + (funcall + (if (cape--company-call backend 'ignore-case) + #'completion-table-case-fold + #'identity) + (cape--table-with-properties + (cape--cached-table beg end + (if (cape--company-call backend 'duplicates) + (lambda (input) + (delete-dups (cape--company-call backend 'candidates input))) + (apply-partially #'cape--company-call backend 'candidates)) + (if (cape--company-call backend 'no-cache initial-input) 'never valid)) + :category backend + :sort (not (cape--company-call backend 'sorted)))) :exclusive 'no :company-prefix-length (cdr-safe prefix) :company-doc-buffer (lambda (x) (cape--company-call backend 'doc-buffer x)) |