[elpa] master 6c8763a 151/173: Fixed lighter for grouped backends

[Dmitry Gutov]

branch: master
commit 6c8763a39a30635327f24d0764d59efb18509787
Author: Akira Kyle <address@hidden>
Commit: Akira Kyle <address@hidden>

    Fixed lighter for grouped backends
    
    Fixed issue where if the car of company-backend was a keyword (eg :sorted) 
the lighter would display that instead of the correct backend. (I believe this 
necessary due to the "small perf optimization" in 
company--multi-backend-adapter-candidates
---
 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))))