X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7e6e1b7ba0c797e4692bda59ea500f953d9b7be5..9c6348ecbc8f5403aafe2b3dfccd678a60f921c0:/company-css.el

diff --git a/company-css.el b/company-css.el
index d89fd1a43..b2d4c6aea 100644
--- a/company-css.el
+++ b/company-css.el
@@ -276,7 +276,7 @@ Returns \"\" if no property found, but feasible at this position."
   (interactive (list 'interactive))
   (case command
     ('interactive (company-begin-backend 'company-css))
-    ('prefix (and (eq major-mode 'css-mode)
+    ('prefix (and (derived-mode-p 'css-mode)
                   (or (company-grab company-css-tag-regexp 1)
                       (company-grab company-css-pseudo-regexp 1)
                       (company-grab company-css-property-value-regexp 2)