X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/38aa1ca2f88607c8cd9f9b5a14bf0dfadadc5546..da32a6a4e9fd28006e4a53e99250e80587cb50bf:/company-clang.el

diff --git a/company-clang.el b/company-clang.el
index 7c3a3b47f..6b80ef02f 100644
--- a/company-clang.el
+++ b/company-clang.el
@@ -222,10 +222,11 @@ Completions only work correctly when the buffer has been saved.
   (interactive (list 'interactive))
   (case command
     (interactive (company-begin-backend 'company-clang))
-    (init (unless company-clang-executable
-            (error "Company found no clang executable"))
-          (when (< (company-clang-version) company-clang-required-version)
-            (error "Company requires clang version 1.1")))
+    (init (when (memq major-mode company-clang-modes)
+            (unless company-clang-executable
+              (error "Company found no clang executable"))
+            (when (< (company-clang-version) company-clang-required-version)
+              (error "Company requires clang version 1.1"))))
     (prefix (and (memq major-mode company-clang-modes)
                  buffer-file-name
                  company-clang-executable