Silence some byte-compilation warnings

diff --git a/company-clang.el b/company-clang.el
index 3d28f0ccdb80145abc587deb086dfe5fb7ee46d0..6844bb0619f3b6f4188430afba0889b637e4401d 100644 (file)
--- a/company-clang.el
+++ b/company-clang.el
@@ -26,6 +26,7 @@
 ;;; Code:
 
 (require 'company)
+(require 'company-template)
 (eval-when-compile (require 'cl))
 
 (defcustom company-clang-executable

diff --git a/company-eclim.el b/company-eclim.el
index 599bf6e72e69d5522281792a05a464d1dad504fa..f8a55dc445d88c91e3f2c46b63e60060d8675e50 100644 (file)
--- a/company-eclim.el
+++ b/company-eclim.el
@@ -31,6 +31,7 @@
 ;;; Code:
 
 (require 'company)
+(require 'company-template)
 (eval-when-compile (require 'cl))
 
 (defun company-eclim-executable-find ()
@@ -97,10 +98,9 @@ eclim can only complete correctly when the buffer has been saved."
       (let ((dir (company-eclim--project-dir)))
         (when dir
           (setq company-eclim--project-name
-                (let ((project (find-if (lambda (project)
-                                          (equal (cdr (assoc 'path project))
-                                                 dir))
-                                        (company-eclim--project-list))))
+                (let ((project (loop for project in (company-eclim--project-list)
+                                     when (equal (cdr (assoc 'path project)) dir)
+                                     return project)))
                   (when project
                     (cdr (assoc 'name project)))))))))
 

diff --git a/company-elisp.el b/company-elisp.el
index ec3161d553220a87954018d13144a0957a547065..986cd3d4b73b254f62c2f309096022ac2e0b4220 100644 (file)
--- a/company-elisp.el
+++ b/company-elisp.el
@@ -28,6 +28,7 @@
 (require 'company)
 (eval-when-compile (require 'cl))
 (require 'help-mode)
+(require 'find-func)
 
 (defcustom company-elisp-detect-function-context t
   "If enabled, offer Lisp functions only in appropriate contexts.

diff --git a/company.el b/company.el
index 60a3aee71d342e442c2be29026afdf932c8f5d91..0ddc9451b93ed2999e928a8e45776a9608b33157 100644 (file)
--- a/company.el
+++ b/company.el
@@ -656,10 +656,10 @@ keymap during active completions (`company-active-map'):
     (apply 'company--multi-backend-adapter company-backend args)))
 
 (defun company--multi-backend-adapter (backends command &rest args)
-  (let ((backends (remove-if (lambda (b)
-                               (and (symbolp b)
-                                    (eq 'failed (get b 'company-init))))
-                             backends)))
+  (let ((backends (loop for b in backends
+                        when (not (and (symbolp b)
+                                       (eq 'failed (get b 'company-init))))
+                        collect b)))
     (case command
       (candidates
        (loop for backend in backends
@@ -2000,9 +2000,5 @@ Returns a negative number if the tooltip should be displayed above point."
     (post-command (company-echo-show-when-idle 'company-fetch-metadata))
     (hide (company-echo-hide))))
 
-;; templates ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(autoload 'company-template-declare-template "company-template")
-
 (provide 'company)
 ;;; company.el ends here