company-auto-begin: wrap `company-begin' in `condition-case-no-debug'

diff --git a/company.el b/company.el
index 5fab34ad7cb378dba2af9173ed72f3e017724062..dfbb2a341921a2d969dc1ab75113040e9c8487a6 100644 (file)
--- a/company.el
+++ b/company.el
@@ -1066,7 +1066,12 @@ Keywords and function definition names are ignored."
        (not company-candidates)
        (let ((company-idle-delay t)
              (company-begin-commands t))
-         (company-begin)))
+         (condition-case-no-debug err
+             (company-begin)
+           (error (message "Company: An error occurred in auto-begin")
+                  (message "%s" (error-message-string err))
+                  (company-cancel))
+           (quit (company-cancel)))))
   ;; Return non-nil if active.
   company-candidates)