From 3d7683107180203654e0da80ed556240bc94c2b3 Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 9 May 2013 22:46:26 +0400
Subject: [PATCH] Fix some more compilation warnings

---
 company-eclim.el | 2 ++
 company-elisp.el | 4 ++--
 company-tests.el | 2 ++
 company.el       | 4 ++++
 4 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/company-eclim.el b/company-eclim.el
index 864f550ed..ea0b73ee5 100644
--- a/company-eclim.el
+++ b/company-eclim.el
@@ -69,6 +69,8 @@ eclim can only complete correctly when the buffer has been saved."
 (defvar company-eclim--doc nil)
 (make-variable-buffer-local 'company-eclim--doc)
 
+(declare-function json-read "json")
+
 (defun company-eclim--call-process (&rest args)
   (let ((coding-system-for-read 'utf-8)
         res)
diff --git a/company-elisp.el b/company-elisp.el
index b55ed9f20..5bfc27e04 100644
--- a/company-elisp.el
+++ b/company-elisp.el
@@ -111,7 +111,7 @@ first in the candidates list."
         res)
     (condition-case nil
         (save-excursion
-          (dotimes (i company-elisp-parse-depth)
+          (dotimes (_ company-elisp-parse-depth)
             (up-list -1)
             (save-excursion
               (when (eq (char-after) ?\()
@@ -126,7 +126,7 @@ first in the candidates list."
                                   company-elisp-var-binding-regexp))
                     (down-list 1)
                     (condition-case nil
-                        (dotimes (i company-elisp-parse-limit)
+                        (dotimes (_ company-elisp-parse-limit)
                           (save-excursion
                             (when (looking-at "[ \t\n]*(")
                               (down-list 1))
diff --git a/company-tests.el b/company-tests.el
index 9b8e914b2..7ff98891d 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -28,6 +28,8 @@
 (require 'ert)
 (require 'company)
 (require 'company-keywords)
+(require 'company-elisp)
+(require 'company-clang)
 
 ;;; Core
 
diff --git a/company.el b/company.el
index 2625e2afa..2bd611455 100644
--- a/company.el
+++ b/company.el
@@ -1357,6 +1357,10 @@ and invoke the normal binding."
     (company-abort)
     (company--unread-last-input)))
 
+(defvar company-pseudo-tooltip-overlay)
+
+(defvar company-tooltip-offset)
+
 (defun company--inside-tooltip-p (event-col-row row height)
   (let* ((ovl company-pseudo-tooltip-overlay)
          (column (overlay-get ovl 'company-column))
-- 
2.39.2