paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use rtrim instead of a dec(s[0]) method after remark by jc99

Browse Source 
git-svn-id: trunk@35992 -
This commit is contained in:
marco 2017-04-28 11:44:15 +00:00
parent e6e55b3004
commit e837a8577c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/weditor.pas
View File

@ -6805,8 +6805,7 @@ begin
S:=GetLineText(Line); S:=GetLineText(Line);
{ Remove all traling spaces PM } { Remove all traling spaces PM }
if not Editor^.IsFlagSet(efKeepTrailingSpaces) then if not Editor^.IsFlagSet(efKeepTrailingSpaces) then
While (Length(S)>0) and (S[Length(S)]=' ') do s:=RTrim(S);
Dec(S[0]);
{ if FlagSet(efUseTabCharacters) then { if FlagSet(efUseTabCharacters) then
S:=CompressUsingTabs(S,TabSize); S:=CompressUsingTabs(S,TabSize);
} }