[elpa] master a7e4408 152/173: Merge pull request #491 from akirakyle/patch-1

[Dmitry Gutov]

branch: master
commit a7e4408f4052e5e76ee4b12074584ca6bd191f92
Merge: 7d2d49b 6c8763a
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Merge pull request #491 from akirakyle/patch-1
    
    Fixed lighter for grouped backends
---
 company.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index 9756402..5212f92 100644
--- a/company.el
+++ b/company.el
@@ -1096,7 +1096,8 @@ can retrieve meta-data for them."
 
 (defun company--group-lighter (candidate base)
   (let ((backend (or (get-text-property 0 'company-backend candidate)
-                     (car company-backend))))
+                     (cl-some (lambda (x) (and (not (keywordp x)) x))
+                              company-backend))))
     (when (and backend (symbolp backend))
       (let ((name (replace-regexp-in-string "company-\\|-company" ""
                                             (symbol-name backend))))