Merge pull request #491 from akirakyle/patch-1

Fixed lighter for grouped backends

diff --git a/company.el b/company.el
index 9756402ec71d3c7afe2d9f978e2b425c4cb3dec2..5212f927e30286df3447ca48941ea450e379ec8e 100644 (file)
--- 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))))