paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly delete last line, resolves #10283

Browse Source 
git-svn-id: trunk@9448 -
This commit is contained in:
florian 2007-12-14 21:44:21 +00:00
parent 124c6c0c13
commit aa29f9245c
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/wcedit.pas
View File

@ -1378,13 +1378,11 @@ begin
end;
eaDeleteLine :
begin
SetCurPtr(EndPos.X,EndPos.Y);
SetMinMax(EndPos.Y);
HadefNoIndent:=(GetFlags and efNoIndent)<>0;
WasInserting:=GetInsertMode;
SetInsertMode(true);
SetFlags(GetFlags or efNoIndent);
InsertNewLine;
InsertLine(StartPos.Y,'');
SetInsertMode(WasInserting);
if not HadefNoIndent then
SetFlags(GetFlags and not efNoIndent);
@ -2062,5 +2060,4 @@ begin
{$endif}
end;
END.
end.