Fixed wrong case completions.

diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el
index b0ca8f9517d3992192e3b40df5881b0dcfd400e8..a5832e7886bfb59255d6b2c2b3ca8b44da461d7b 100644 (file)
--- a/company-dabbrev-code.el
+++ b/company-dabbrev-code.el
@@ -70,7 +70,7 @@ comments or strings."
                       (apply 'derived-mode-p company-dabbrev-code-modes))
                   (not (company-in-string-or-comment))
                   (or (company-grab-symbol) 'stop)))
-    ('candidates (let ((case-fold-search nil))
+    ('candidates (let ((completion-ignore-case nil))
                    (company-dabbrev--search
                     (company-dabbrev-code--make-regexp arg)
                     company-dabbrev-code-time-limit

diff --git a/company-keywords.el b/company-keywords.el
index 4bddd8383f8beb3853d968ea2284eb4948dbd6eb..7e1698c0a20fd1229ff443ea4799192f87cfb0b0 100644 (file)
--- a/company-keywords.el
+++ b/company-keywords.el
@@ -149,7 +149,7 @@
                   (not (company-in-string-or-comment))
                   (or (company-grab-symbol) 'stop)))
     ('candidates
-     (let ((case-fold-search nil)
+     (let ((completion-ignore-case nil)
            (symbols (cdr (assq major-mode company-keywords-alist))))
        (all-completions arg (if (consp symbols)
                                 symbols