[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/company 31dc4b2 1/2: New option company-keywords-ignore
From: |
ELPA Syncer |
Subject: |
[elpa] externals/company 31dc4b2 1/2: New option company-keywords-ignore-case |
Date: |
Wed, 25 Aug 2021 19:57:08 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/company 31dc4b2 1/2: New option company-keywords-ignore-case,
ELPA Syncer <=