[elpa] externals/cape 4cd6cdd4a2 106/146: Respect ignore-case for company backends

[ELPA Syncer]

branch: externals/cape
commit 4cd6cdd4a264f354c03a2d8dd3ffb54edf275b17
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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 8602a355bf..d27c823f22 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))