Enable CSS and nxml back-ends for derived modes.

[gnu-emacs-elpa] / company-css.el

diff --git a/company-css.el b/company-css.el
index 23c2802bbf92702cabebdc0ec1a9eb9446c54eec..b2d4c6aea3432e73ac6835f8b289e87624bb5278 100644 (file)
--- a/company-css.el
+++ b/company-css.el
@@ -2,7 +2,7 @@
 ;;
 ;; Copyright (C) 2009 Nikolaj Schumacher
 ;;
-;; This file is part of company 0.2.1.
+;; This file is part of company 0.4.3.
 ;;
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License
@@ -263,8 +263,7 @@
   "Return the CSS property before point, if any.
 Returns \"\" if no property found, but feasible at this position."
   (when (company-css-inside-braces-p)
-    (or (company-grab "\\_<[[:alpha:]-]+\\_>\\=")
-        (company-grab "{\\|[[:space:]]" 1))))
+    (company-grab-symbol)))
 
 ;;; values
 (defconst company-css-property-value-regexp
@@ -277,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)