[gnugo] Indicate buffer not modified after save.

[gnu-emacs-elpa] / packages / company / company-etags.el

diff --git a/packages/company/company-etags.el b/packages/company/company-etags.el
index 956e294afd1682323f2350d704553f052ba45982..270e3a255673e5529ebd3dc3b64df3db4a08f8fa 100644 (file)
--- a/packages/company/company-etags.el
+++ b/packages/company/company-etags.el
@@ -1,6 +1,6 @@
 ;;; company-etags.el --- company-mode completion back-end for etags
 
-;; Copyright (C) 2009-2011  Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2014  Free Software Foundation, Inc.
 
 ;; Author: Nikolaj Schumacher
 
@@ -25,6 +25,7 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
 (require 'company)
 (require 'etags)
 
@@ -39,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)
@@ -73,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)))