Use company-dabbrev-code-ignore-case when finding candidates

diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el
index ff47390dec97fc68ec5e5745f722b5609770bdd8..6f827cd50d7e71bb8ee250f7651829774203f809 100644 (file)
--- a/company-dabbrev-code.el
+++ b/company-dabbrev-code.el
@@ -87,7 +87,7 @@ comments or strings."
                  (or company-dabbrev-code-everywhere
                      (not (company-in-string-or-comment)))
                  (or (company-grab-symbol) 'stop)))
-    (candidates (let ((case-fold-search nil))
+    (candidates (let ((case-fold-search company-dabbrev-code-ignore-case))
                   (company-dabbrev--search
                    (company-dabbrev-code--make-regexp arg)
                    company-dabbrev-code-time-limit