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

* Take link contents into account when writing seealso section

Browse Source 
git-svn-id: trunk@3866 -
This commit is contained in:
michael 2006-06-13 22:54:59 +00:00
parent 85017f4139
commit a49a8ba774
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
utils/fpdoc/dw_html.pp
View File

@ -1849,7 +1849,17 @@ begin
end
else
NewEl := CreateLink(ParaEl,s);
AppendText(NewEl,El['id']);
if Not IsDescrNodeEmpty(El) then
begin
PushOutputNode(NewEl);
Try
ConvertBaseShortList(AElement, El, True)
Finally
PopOutputNode;
end;
end
else
AppendText(NewEl,El['id']);
l:=El['id'];
DescrEl := Engine.FindShortDescr(AElement.GetModule,L);
if Assigned(DescrEl) then