[elpa] externals/company 00f8b97 2/2: Merge pull request #1180 from twlz0ne/keywords-ignore-case

[ELPA Syncer]

branch: externals/company
commit 00f8b970b8329c10b8f543c3e1930682f4d6bd8a
Merge: c7234a9 31dc4b2
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>

    Merge pull request #1180 from twlz0ne/keywords-ignore-case
    
    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 d9d9eb9..cbe5094 100644
--- a/company-keywords.el
+++ b/company-keywords.el
@@ -29,6 +29,14 @@
 (require 'cl-lib)
 (eval-when-compile (require 'make-mode))
 
+(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))
@@ -329,13 +337,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