[elpa] 06/21: Fix #54

[Dmitry Gutov]

dgutov pushed a commit to branch master
in repository elpa.

commit b0f4ee4902a5ba37c4a613d6564985e250596208
Author: Dmitry Gutov <address@hidden>
Date:   Thu Jan 30 20:11:18 2014 +0200

    Fix #54
---
 company-etags.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/company-etags.el b/company-etags.el
index f93c763..270e3a2 100644
--- 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)))