From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 20 Mar 2016 12:43:51 +0000 (+0300)
Subject: Merge pull request #491 from akirakyle/patch-1
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/a7e4408f4052e5e76ee4b12074584ca6bd191f92?hp=7d2d49bea57acd8f9ea07a8286144ee3ae1110c8

Merge pull request #491 from akirakyle/patch-1

Fixed lighter for grouped backends
---

diff --git a/company.el b/company.el
index 9756402ec..5212f927e 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))))