paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 20:50:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid to resyntax whole source in unnecessary cases

Browse Source
This commit is contained in:
pierre 2000-01-06 17:47:26 +00:00
parent 67d7798248
commit 44246c2d58
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/weditor.pas
View File

@ -4342,13 +4342,15 @@ begin
if CurLine>=GetLineCount then
Break;
NextLine:=Lines^.At(CurLine);
if (Attrs and attrForceFull)=0 then
if (InAsm=false) and (NextLine^.BeginsWithAsm=false) and
if ((Attrs and attrForceFull)=0) then
if { Why should we go
(InAsm=false) and (NextLine^.BeginsWithAsm=false) and
(InComment=false) and (NextLine^.BeginsWithComment=false) and
(InDirective=false) and (NextLine^.BeginsWithDirective=false) and
OldLine = Line so this is nonsense
(OldLine^.EndsWithComment=Line^.EndsWithComment) and
(OldLine^.EndsWithAsm=Line^.EndsWithAsm) and
(OldLine^.EndsWithDirective=Line^.EndsWithDirective) and
(OldLine^.EndsWithDirective=Line^.EndsWithDirective) and }
(NextLine^.BeginsWithAsm=Line^.EndsWithAsm) and
(NextLine^.BeginsWithComment=Line^.EndsWithComment) and
(NextLine^.BeginsWithDirective=Line^.EndsWithDirective) and
@ -5480,7 +5482,10 @@ end;
END.
{
$Log$
Revision 1.70 2000-01-05 17:35:50 pierre
Revision 1.71 2000-01-06 17:47:26 pierre
* avoid to resyntax whole source in unnecessary cases
Revision 1.70 2000/01/05 17:35:50 pierre
+ Warning box if a line is cut at reading of file
this is done to avoid loosing completely long lines
* several TAB related changes