[elpa] externals/cape 6dd49c0f78: Enforce case folding for cape-dabbrev and cape-dict

[ELPA Syncer]

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

    Enforce case folding for cape-dabbrev and cape-dict
---
 cape.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/cape.el b/cape.el
index 68f96c96d6..cfaf0831ba 100644
--- a/cape.el
+++ b/cape.el
@@ -412,9 +412,10 @@ See the user options `cape-dabbrev-min-length' and
             (end (match-end 0)))
         `(,beg ,end
           ,(cape--table-with-properties
-            (cape--cached-table beg end
-                                #'cape--dabbrev-list
-                                #'string-prefix-p)
+            (completion-table-case-fold
+              (cape--cached-table beg end
+                                  #'cape--dabbrev-list
+                                  #'string-prefix-p))
             :category 'cape-dabbrev)
           ,@cape--dabbrev-properties)))))
 
@@ -477,10 +478,11 @@ If INTERACTIVE is nil the function acts like a Capf."
     (pcase-let ((`(,beg . ,end) (cape--bounds 'word)))
       `(,beg ,end
         ,(cape--table-with-properties
-          (cape--cached-table beg end
-                              #'cape--dict-grep-words
-                              (lambda (old new)
-                                (string-match-p (regexp-quote old) new)))
+          (completion-table-case-fold
+            (cape--cached-table beg end
+                                #'cape--dict-grep-words
+                                (lambda (old new)
+                                  (string-match-p (regexp-quote old) new))))
           :category 'cape-dict)
         ,@cape--dict-properties))))