paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 11:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: code help: fixed ToOSLineEnding

Browse Source 
git-svn-id: trunk@22163 -
This commit is contained in:
mattias 2009-10-14 07:29:50 +00:00
parent 950305ea23
commit 62850ac64c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codehelp.pas
View File

@ -360,7 +360,7 @@ begin
// single char line ending #13 or #10
if (length(le)<>1)
or (le[1]<>s[p]) then begin
Result:=copy(Result,1,p-1)+le+copy(Result,p+2,length(Result));
Result:=copy(Result,1,p-1)+le+copy(Result,p+1,length(Result));
end;
end;
inc(p);