Fix some more compilation warnings

diff --git a/company-eclim.el b/company-eclim.el
index 864f550ed23dfce74156dee7c61bdbdcc30241e5..ea0b73ee53dc577b922f72c330891cfe62938bb7 100644 (file)
--- 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 b55ed9f20d9f85bc4ad143ffd3b46bb8cde26abe..5bfc27e043fee12b431a4ec5c16b3846de5f4ce9 100644 (file)
--- 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 9b8e914b26b2effbdc731b73b3598f0c1ebc51b3..7ff98891d51f1198b6ebd14d0974755f58eb0d9d 100644 (file)
--- 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 2625e2afae99dae4231ab9982531f08729045bd5..2bd6114555dad31bf6303ce308067e51955c50c8 100644 (file)
--- 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))