paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: auto indent: unindent using next atom

Browse Source 
git-svn-id: trunk@22344 -
This commit is contained in:
mattias 2009-10-29 17:09:00 +00:00
parent b66ad68b18
commit 653c1f4acf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codebeautifier.pas
View File

@ -1082,9 +1082,10 @@ begin
Result:=Stack.Top; Result:=Stack.Top;
if Result<0 then exit; if Result<0 then exit;
if (CleanPos<1) or (CleanPos>length(Source)) if (CleanPos<1) or (CleanPos>length(Source))
or (not (Source[CleanPos] in [' ',#9])) then or (Source[CleanPos] in [' ',#9]) then
exit; exit;
ReadRawNextPascalAtom(Source,CleanPos,AtomStart,NestedComments); ReadRawNextPascalAtom(Source,CleanPos,AtomStart,NestedComments);
DebugLn(['TFullyAutomaticBeautifier.FindStackPosForBlockCloseAtPos Atom=',copy(Source,AtomStart,CleanPos-AtomStart)]);
r:=@Source[AtomStart]; r:=@Source[AtomStart];
case UpChars[r^] of case UpChars[r^] of
'C': 'C':