Преглед изворни кода

* Numeric chars allowed in identifier, no need to escape

Michaël Van Canneyt пре 3 година
родитељ
комит
2b99abdd4d
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      packages/fcl-css/src/fpcsstree.pp

+ 1 - 1
packages/fcl-css/src/fpcsstree.pp

@@ -445,7 +445,7 @@ begin
   While iIn<=Length(S) do
     begin
     C:=S[iIn];
-    If Not (C in ['a'..'z','A'..'Z','_','-']) then
+    If Not (C in ['a'..'z','A'..'Z','_','-','0'..'9']) then
       begin
       inc(iOut);
       Result[iOut]:='\';