paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Numeric chars allowed in identifier, no need to escape

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-02 10:07:11 +02:00
parent 56108f4799
commit 2b99abdd4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-css/src/fpcsstree.pp
View File

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