* Actually use FileNameExtension

git-svn-id: trunk@20092 -

utils/fpdoc/dw_html.pp

@@ -3457,7 +3457,7 @@ end;
 
 Class Function THTMLWriter.FileNameExtension : String; 
 begin
-  result:='.html';
+  result:='';
 end;
 
 // private methods

utils/fpdoc/dwlinear.pp

@@ -588,7 +588,9 @@ var
 begin
   PackageName := LowerCase(Copy(Package.Name, 2, 255));
   If (Engine.OutPut='') then
-    Engine.Output:=PackageName+FileNameExtension;
+    Engine.Output:=PackageName+FileNameExtension
+  else if (ExtractFileExt(Engine.output)='') and (FileNameExtension<>'') then
+    Engine.Output:=ChangeFileExt(Engine.output,FileNameExtension);  
   FStream:=TFileStream.Create(Engine.Output,fmCreate);
   try
     WriteBeginDocument;