paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 06:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: auto indent: on paste: skip spaces in insert code

Browse Source 
git-svn-id: trunk@22624 -
This commit is contained in:
mattias 2009-11-16 14:12:40 +00:00
parent f7794cff2a
commit 0f7ce1431b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codebeautifier.pas
View File

@ -1538,6 +1538,7 @@ var
LastAtomStart, LastAtomEnd: integer; LastAtomStart, LastAtomEnd: integer;
StackIndex: LongInt; StackIndex: LongInt;
PrevLineAtomEndPos: LongInt; PrevLineAtomEndPos: LongInt;
InsertTextStartPos: Integer;
begin begin
Result:=false; Result:=false;
FillByte(Indent,SizeOf(Indent),0); FillByte(Indent,SizeOf(Indent),0);
@ -1587,7 +1588,11 @@ begin
StackIndex:=FindStackPosForBlockCloseAtPos(Source,CleanPos, StackIndex:=FindStackPosForBlockCloseAtPos(Source,CleanPos,
NewNestedComments,Stack,SubType,SubTypeValid); NewNestedComments,Stack,SubType,SubTypeValid);
end else begin end else begin
StackIndex:=FindStackPosForBlockCloseAtPos(InsertText,1, InsertTextStartPos:=1;
while (InsertTextStartPos<=length(InsertText))
and (InsertText[InsertTextStartPos] in [' ',#9]) do
inc(InsertTextStartPos);
StackIndex:=FindStackPosForBlockCloseAtPos(InsertText,InsertTextStartPos,
NewNestedComments,Stack,SubType,SubTypeValid); NewNestedComments,Stack,SubType,SubTypeValid);
end; end;
end; end;