Fix #54

diff --git a/company-etags.el b/company-etags.el
index f93c763b1502ef9b1037ea064e57916e4e912918..270e3a255673e5529ebd3dc3b64df3db4a08f8fa 100644 (file)
--- a/company-etags.el
+++ b/company-etags.el
@@ -40,8 +40,8 @@ buffer automatically."
   :type '(choice (const :tag "off" nil)
                  (const :tag "on" t)))
 
-(defvar company-etags-modes '(c-mode objc-mode c++-mode java-mode jde-mode
-                              pascal-mode perl-mode python-mode))
+(defvar company-etags-modes '(prog-mode c-mode objc-mode c++-mode java-mode
+                              jde-mode pascal-mode perl-mode python-mode))
 
 (defvar company-etags-buffer-table 'unknown)
 (make-variable-buffer-local 'company-etags-buffer-table)
@@ -74,7 +74,7 @@ buffer automatically."
   (interactive (list 'interactive))
   (case command
     (interactive (company-begin-backend 'company-etags))
-    (prefix (and (memq major-mode company-etags-modes)
+    (prefix (and (apply 'derived-mode-p company-etags-modes)
                  (not (company-in-string-or-comment))
                  (company-etags-buffer-table)
                  (or (company-grab-symbol) 'stop)))