[Emacs-diffs] master 64db0c2: Discriminate between pseudo-classes and -elements

[Simen Heggestøyl]

branch: master
commit 64db0c26faba21e7aedc0c5f57e04ed175b04f5b
Author: Simen Heggestøyl <address@hidden>
Commit: Simen Heggestøyl <address@hidden>

    Discriminate between pseudo-classes and -elements
    
    * textmodes/css-mode.el (css--font-lock-keywords): Discriminate
    between pseudo-classes and pseudo-elements.
    (css-pseudo-ids): Remove.
    (css-pseudo-class-ids): New variable.
    (css-pseudo-element-ids): New variable.
---
 lisp/ChangeLog             |    8 ++++++++
 lisp/textmodes/css-mode.el |   22 +++++++++++++++++-----
 2 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57d988b..898d9cb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2015-03-17  Simen Heggestøyl  <address@hidden>
+
+       * textmodes/css-mode.el (css--font-lock-keywords): Discriminate
+       between pseudo-classes and pseudo-elements.
+       (css-pseudo-ids): Remove.
+       (css-pseudo-class-ids): New variable.
+       (css-pseudo-element-ids): New variable.
+
 2015-03-17  Bozhidar Batsov  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-font-lock-keywords): Font-lock
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index 44dc4df..c889603 100644
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 2006-2015 Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <address@hidden>
+;; Maintainer: Simen Heggestøyl <address@hidden>
 ;; Keywords: hypermedia
 
 ;; This file is part of GNU Emacs.
@@ -120,10 +121,17 @@
 ;;    (media . "^ +\\* '\\([^ '\n]+\\)' media group")
 ;;    (property . "^ +\\* '\\([^ '\n]+\\)',")))
 
-(defconst css-pseudo-ids
-  '("active" "after" "before" "first" "first-child" "first-letter" "first-line"
-    "focus" "hover" "lang" "left" "link" "right" "visited")
-  "Identifiers for pseudo-elements and pseudo-classes.")
+(defconst css-pseudo-class-ids
+  '("active" "checked" "disabled" "empty" "enabled" "first"
+    "first-child" "first-of-type" "focus" "hover" "indeterminate" "lang"
+    "last-child" "last-of-type" "left" "link" "nth-child"
+    "nth-last-child" "nth-last-of-type" "nth-of-type" "only-child"
+    "only-of-type" "right" "root" "target" "visited")
+  "Identifiers for pseudo-classes.")
+
+(defconst css-pseudo-element-ids
+  '("after" "before" "first-letter" "first-line")
+  "Identifiers for pseudo-elements.")
 
 (defconst css-at-ids
   '("charset" "font-face" "import" "media" "page")
@@ -258,7 +266,11 @@
          (concat "\\(?:" scss--hash-re
                  "\\|[^@/:{} \t\n#]\\)"
                  "[^:{}#]*\\(?:" scss--hash-re "[^:{}#]*\\)*"))
-       "\\(?::" (regexp-opt css-pseudo-ids t)
+       ;; Even though pseudo-elements should be prefixed by ::, a
+       ;; single colon is accepted for backward compatibility.
+       "\\(?:\\(:" (regexp-opt (append css-pseudo-class-ids
+                                       css-pseudo-element-ids) t)
+       "\\|\\::" (regexp-opt css-pseudo-element-ids t) "\\)"
        "\\(?:([^\)]+)\\)?"
        (if (not sassy)
            "[^:{}\n]*"