Cover load errors in auto-loaded back-ends.

Previously, it was enough to ignore errors when requiring.  Since back-ends
are now interactive and can be auto-loaded, the loading error could occur at
any time.

diff --git a/company.el b/company.el
index a5eda31b14379eeef236c7369fd317195dbc987a..adb0d46116838748063a0906c1a03c9172f79915 100644 (file)
--- a/company.el
+++ b/company.el
@@ -438,7 +438,9 @@ The work-around consists of adding a newline.")
   (when (symbolp backend)
     (unless (fboundp backend)
       (ignore-errors (require backend nil t)))
-    (unless (fboundp backend)
+    (if (and (fboundp backend)
+             (ignore-errors (funcall backend 'init) t))
+        (put backend 'company-init t)
       (message "Company back-end '%s' could not be initialized"
                backend))))
 
@@ -792,7 +794,8 @@ keymap during active completions (`company-active-map'):
                            ;; prefer manual override
                            (list company-backend)
                          company-backends))
-        (when (and (functionp backend)
+        (when (and (get backend 'company-init)
+                   (functionp backend)
                    (setq prefix (funcall backend 'prefix)))
           (when (and (stringp prefix)
                      (>= (length prefix) company-minimum-prefix-length))