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

* fix for bugs 746,748 and 750

Browse Source
This commit is contained in:
pierre 1999-12-08 16:02:46 +00:00
parent 5169b7b86b
commit 2e835d0341
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/text/weditor.pas
View File

@ -4563,7 +4563,7 @@ begin
if P^.Text=nil then S:='' else
begin
S:=P^.Text^;
if Line=EndP.Y then S:=copy(S,1,EndP.Y+1);
if Line=EndP.Y then S:=copy(S,1,EndP.X+1);
if Line=StartP.Y then S:=copy(S,StartP.Y+1,255);
end;
{ Remove all traling spaces PM }
@ -5152,7 +5152,10 @@ end;
END.
{
$Log$
Revision 1.64 1999-12-01 17:25:00 pierre
Revision 1.65 1999-12-08 16:02:46 pierre
* fix for bugs 746,748 and 750
Revision 1.64 1999/12/01 17:25:00 pierre
+ check if file on disk was changed since load before overwriting
Revision 1.63 1999/11/22 17:34:08 pierre