paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 05:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug report 2025

Browse Source
This commit is contained in:
pierre 2002-08-26 14:00:48 +00:00
parent 521f29fcca
commit 354a96f9eb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/weditor.pas
View File

@ -4875,7 +4875,7 @@ begin
SetStoreUndo(false);
S:=GetLineText(CurPos.Y);
CI:=LinePosToCharIdx(CurPos.Y,CurPos.X);
if CI>length(S) then
if (CI>length(S)) or (S='') then
begin
if CurPos.Y<GetLineCount-1 then
begin
@ -7104,7 +7104,10 @@ end;
END.
{
$Log$
Revision 1.23 2002-08-26 13:01:38 pierre
Revision 1.24 2002-08-26 14:00:48 pierre
* fix for bug report 2025
Revision 1.23 2002/08/26 13:01:38 pierre
+ fill the Now field for Editor actions
Revision 1.22 2002/06/13 14:50:35 pierre