[elpa] externals/company 31dc4b2 1/2: New option company-keywords-ignore-case

[ELPA Syncer]

branch: externals/company
commit 31dc4b2e40eed0a6b65a72374caaf539147d0657
Author: Gong Qijian <gongqijian@gmail.com>
Commit: Gong Qijian <gongqijian@gmail.com>

    New option company-keywords-ignore-case
---
 company-keywords.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/company-keywords.el b/company-keywords.el
index 0bb17ef..46b0ec2 100644
--- a/company-keywords.el
+++ b/company-keywords.el
@@ -28,6 +28,14 @@
 (require 'company)
 (require 'cl-lib)
 
+(defgroup company-keywords nil
+  "Completion backend for keywords."
+  :group 'company)
+
+(defcustom company-keywords-ignore-case nil
+  "Non-nil to ignore case in completion candidates."
+  :type 'boolean)
+
 (defun company-keywords-upper-lower (&rest lst)
   ;; Upcase order is different for _.
   (nconc (sort (mapcar 'upcase lst) 'string<) lst))
@@ -307,13 +315,14 @@
                  (not (company-in-string-or-comment))
                  (or (company-grab-symbol) 'stop)))
     (candidates
-     (let ((completion-ignore-case nil)
+     (let ((completion-ignore-case company-keywords-ignore-case)
            (symbols (cdr (assq major-mode company-keywords-alist))))
        (all-completions arg (if (consp symbols)
                                 symbols
                               (cdr (assq symbols company-keywords-alist))))))
     (kind 'keyword)
-    (sorted t)))
+    (sorted t)
+    (ignore-case company-keywords-ignore-case)))
 
 (provide 'company-keywords)
 ;;; company-keywords.el ends here