[elpa] master 14f80ed 27/40: Move face definitions to a separate group

[Dmitry Gutov]

branch: master
commit 14f80ed7f21d79df6639c7df2a6e61a716c07b81
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Move face definitions to a separate group
    
    Closes #927
---
 NEWS.md             | 1 +
 company-template.el | 2 +-
 company.el          | 9 +++++++++
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/NEWS.md b/NEWS.md
index 135c9e6..a551f13 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
 
 ## Next
 
+* Face definitions have moved to a separate group: `company-faces`.
 * `company-capf`'s `:exit-function` handling has been improved
   ([#935](https://github.com/company-mode/company-mode/issues/935)).
 * New user option `company-clang-use-compile-flags-txt`
diff --git a/company-template.el b/company-template.el
index 7db50dd..be4c41f 100644
--- a/company-template.el
+++ b/company-template.el
@@ -27,7 +27,7 @@
   '((((background dark)) (:background "yellow" :foreground "black"))
     (((background light)) (:background "orange" :foreground "black")))
   "Face used for editable text in template fields."
-  :group 'company)
+  :group 'company-faces)
 
 (defvar company-template-forward-field-item
   '(menu-item "" company-template-forward-field
diff --git a/company.el b/company.el
index 48c41c1..82223fb 100644
--- a/company.el
+++ b/company.el
@@ -84,6 +84,11 @@ attention to case differences."
   :group 'convenience
   :group 'matching)
 
+(defgroup company-faces nil
+  "Faces used by Company."
+  :group 'company
+  :group 'faces)
+
 (defface company-tooltip
   '((default :foreground "black")
     (((class color) (min-colors 88) (background light))
@@ -180,6 +185,10 @@ attention to case differences."
     (((background light)) (:background "firebrick4")))
   "Face used for the common part of completions in the echo area.")
 
+;; Too lazy to re-add :group to all defcustoms down below.
+(setcdr (assoc load-file-name custom-current-group-alist)
+        'company)
+
 (defun company-frontends-set (variable value)
   ;; Uniquify.
   (let ((value (delete-dups (copy-sequence value))))