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

* fix the title, up, next and previous links

Browse Source
This commit is contained in:
pierre 2001-09-06 23:19:47 +00:00
parent bea3bf8717
commit 8daec5f2a6
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/whtml.pas
View File

@ -268,8 +268,14 @@ begin
WasThereAnyText:=DocAddTextChar(C); WasThereAnyText:=DocAddTextChar(C);
if (LiteralCode=false) and InTag and (InString=false) and (CurTag='<!--') then if (LiteralCode=false) and InTag and (InString=false) and (CurTag='<!--') then
InComment:=true; InComment:=true;
{ A comment can be longer than 255 chars
move the test to LineText string,
This is why the Previous, Next and Up Tags where not working ... PM
if (LiteralCode=false) and InTag and InComment and (InString=false) and (length(CurTag)>=3) and if (LiteralCode=false) and InTag and InComment and (InString=false) and (length(CurTag)>=3) and
(copy(CurTag,length(CurTag)-2,3)='-->') then (copy(CurTag,length(CurTag)-2,3)='-->') then
InComment:=false; }
if (LiteralCode=false) and InTag and InComment and (InString=false) and (LinePos>=3) and
(copy(LineText,LinePos-2,3)='-->') then
InComment:=false; InComment:=false;
if (LiteralCode=false) and (C='"') and (InTag=true) and (InString=true) then if (LiteralCode=false) and (C='"') and (InTag=true) and (InString=true) then
@ -711,7 +717,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.1 2001-08-04 11:30:25 peter Revision 1.2 2001-09-06 23:19:47 pierre
* fix the title, up, next and previous links
Revision 1.1 2001/08/04 11:30:25 peter
* ide works now with both compiler versions * ide works now with both compiler versions
Revision 1.1 2000/07/13 09:48:37 michael Revision 1.1 2000/07/13 09:48:37 michael