From 4cd6cdd4a264f354c03a2d8dd3ffb54edf275b17 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sun, 28 Nov 2021 19:47:40 +0100 Subject: Respect ignore-case for company backends --- cape.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/cape.el b/cape.el index 8602a35..d27c823 100644 --- a/cape.el +++ b/cape.el @@ -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)) -- cgit v1.0