[elpa] externals/company 42ede0f 1/2: Allow Control quick-access modifier key

[ELPA Syncer]

branch: externals/company
commit 42ede0fadd023ffa8155ed736098aa84c6ccf048
Author: YE <yet@ego.team>
Commit: YE <yet@ego.team>

    Allow Control quick-access modifier key
---
 company.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/company.el b/company.el
index dd15fb5..afb0c76 100644
--- a/company.el
+++ b/company.el
@@ -692,7 +692,8 @@ See `company-quick-access-keys' for more details."
   :set #'company-custom--set-quick-access
   :type '(choice (const :tag "Meta key" meta)
                  (const :tag "Super key" super)
-                 (const :tag "Hyper key" hyper))
+                 (const :tag "Hyper key" hyper)
+                 (const :tag "Control key" control))
   :package-version '(company . "0.9.14"))
 
 (defun company-keymap--quick-access-modifier ()
@@ -700,7 +701,8 @@ See `company-quick-access-keys' for more details."
   (if-let ((modifier (assoc-default company-quick-access-modifier
                                     '((meta . "M")
                                       (super . "s")
-                                      (hyper . "H")))))
+                                      (hyper . "H")
+                                      (control . "C")))))
       modifier
     (warn "company-quick-access-modifier value unknown: %S"
           company-quick-access-modifier)