:current() takes a list of compound selectors

Author: cdoublev

__tests__/value.js

@@ -4391,6 +4391,8 @@ describe('<selector-list>', () => {
             '::before:not(:hover > type)',
             // Invalid functional pseudo argument
             ':has(:not(:has(type)))',
+            ':current(:not(type > type))',
+            ':current(:not(:has(type)))',
             ':host(:not(type > type))',
             ':host(:not(:has(type)))',
             ':host-context(:not(type > type))',

lib/parse/preprocess.js

@@ -69,8 +69,8 @@ function preParseCalcValue(node) {
  * @see {@link https://drafts.csswg.org/selectors-4/#typedef-combinator}
  * @see {@link https://drafts.csswg.org/selectors-4/#pseudo-element-structure}
  *
- * It aborts parsing a combinator when the context only allows a compound
- * selector.
+ * It aborts parsing a combinator when the context only allows compound
+ * selectors.
  *
  * It aborts parsing when the input is at the back of a pseudo-element with no
  * internal structure but is still not at the end of the selector.
@@ -96,7 +96,7 @@ function preParseCombinator(node) {
         }
     }
     const { context: { trees } } = node
-    if (trees.findLast(tree => tree.definition.name === '<compound-selector>')) {
+    if (trees.findLast(tree => tree.definition.name?.startsWith('<compound-selector'))) {
         return trees.at(-1).definition.name?.startsWith('<relative') ? error(node) : null
     }
 }

lib/values/pseudos.js

@@ -140,7 +140,7 @@ const structural = {
  */
 const time = {
     functions: {
-        'current': '<selector-list>',
+        'current': '<compound-selector-list>',
     },
     identifiers: [
         'current',