[elpa] master 36d9692 2/5: Merge pull request #10 from syohex/unused-vars

[Ingo Lohmar]

branch: master
commit 36d9692da9172c3ad1e1a46d66ffa9346a44b212
Merge: 906d813 f781d42
Author: Dmitry Gutov <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #10 from syohex/unused-vars
    
    Fix byte-compile warnings about unused variable
---
 company-statistics.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/company-statistics.el b/company-statistics.el
index 62c3c1d..668f88c 100644
--- a/company-statistics.el
+++ b/company-statistics.el
@@ -113,7 +113,7 @@ number)."
 (defun company-statistics--initialized-p ()
   (hash-table-p company-statistics--scores))
 
-(defun company-statistics--log-resize (option new-size)
+(defun company-statistics--log-resize (_option new-size)
   (when (company-statistics--initialized-p)
     ;; hash scoresheet auto-resizes, but log does not
     (let ((new-hist (make-vector new-size nil))
@@ -162,7 +162,7 @@ number)."
 
 ;; score calculation for insert/retrieval --- can be changed on-the-fly
 
-(defun company-statistics-score-change-light (cand)
+(defun company-statistics-score-change-light (_cand)
   "Count for global score and mode context."
   (list (cons nil 1)
         (cons major-mode 1)))           ;major-mode is never nil
@@ -212,7 +212,7 @@ May be separated by punctuation, but not by whitespace."
   (when buffer-file-name
     (list :file buffer-file-name)))
 
-(defun company-statistics-capture-context-heavy (manual)
+(defun company-statistics-capture-context-heavy (_manual)
   "Calculate some context, once for the whole completion run."
   (save-excursion
     (backward-char (length company-prefix))
@@ -222,7 +222,7 @@ May be separated by punctuation, but not by whitespace."
                       (company-statistics--parent-symbol)
                       (company-statistics--file-name))))))
 
-(defun company-statistics-score-change-heavy (cand)
+(defun company-statistics-score-change-heavy (_cand)
   "Count for global score, mode context, last keyword, parent symbol,
 buffer file name."
   (let ((last-kwd (assoc :keyword company-statistics--context))