소스 검색

* avoid prepending unitname with abs paths.

git-svn-id: trunk@24099 -
marco 12 년 전
부모
커밋
545a3e708c
1개의 변경된 파일2개의 추가작업 그리고 4개의 파일을 삭제
  1. 2 4
      utils/fpdoc/dw_html.pp

+ 2 - 4
utils/fpdoc/dw_html.pp

@@ -913,8 +913,8 @@ function THTMLWriter.ResolveLinkIDInUnit(const Name,AUnitName: String): DOMStrin
 
 begin
   Result:=ResolveLinkID(Name);
-  If (Result='') and (AUnitName<>'')  then
-    Result:=ResolveLinkID(AUnitName+'.'+Name);
+  If (Result='') and (AUnitName<>'') and (length(Name)>0) and (Name[1]<>'#') then
+     Result:=ResolveLinkID(AUnitName+'.'+Name);
 end;
 
 function THTMLWriter.ResolveLinkID(const Name: String; Level : Integer = 0): DOMString;
@@ -1389,8 +1389,6 @@ begin
 end;
 
 
-
-
 procedure THTMLWriter.AppendText(Parent: TDOMNode; const AText: DOMString);
 begin
   Parent.AppendChild(Doc.CreateTextNode(AText));