From: Nikolaj Schumacher <git@nschum.de>
Date: Sun, 19 Apr 2009 09:37:24 +0000 (+0200)
Subject: Fixed wrong case completions.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/e7c7ba09d9b0bd859b0561009be5eab5020593ed

Fixed wrong case completions.
---

diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el
index b0ca8f951..a5832e788 100644
--- 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 4bddd8383..7e1698c0a 100644
--- 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