[elpa] 39/52: company-update-group-lighter: privatize

[Dmitry Gutov]

dgutov pushed a commit to branch master
in repository elpa.

commit 4fb2162464e71bd189bdaffe293dfafcd2b82304
Author: Dmitry Gutov <address@hidden>
Date:   Sun Jun 22 06:25:22 2014 +0300

    company-update-group-lighter: privatize
---
 company.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/company.el b/company.el
index b61bda6..c0e6a98 100644
--- a/company.el
+++ b/company.el
@@ -1037,12 +1037,12 @@ can retrieve meta-data for them."
             (mod selection company-candidates-length)
           (max 0 (min (1- company-candidates-length) selection))))
   (when (or force-update (not (equal selection company-selection)))
-    (company-update-group-lighter (nth selection company-candidates))
+    (company--update-group-lighter (nth selection company-candidates))
     (setq company-selection selection
           company-selection-changed t)
     (company-call-frontends 'update)))
 
-(defun company-update-group-lighter (candidate)
+(defun company--update-group-lighter (candidate)
   (when (listp company-backend)
     (let ((backend (or (get-text-property 0 'company-backend candidate)
                        (car company-backend))))
@@ -1387,7 +1387,7 @@ Keywords and function definition names are ignored."
               (setq company--manual-prefix prefix))
             (if (symbolp backend)
                 (setq company-lighter (concat " " (symbol-name backend)))
-              (company-update-group-lighter (car c)))
+              (company--update-group-lighter (car c)))
             (company-update-candidates c)
             (run-hook-with-args 'company-completion-started-hook
                                 (company-explicit-action-p))