paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:02:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Vincent Snijders to fix character set indication

Browse Source 
git-svn-id: trunk@127 -
This commit is contained in:
michael 2005-05-27 10:39:45 +00:00
parent f87b590749
commit f7be00d080
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpdoc/dw_html.pp
View File

@ -548,7 +548,7 @@ begin
El := Doc.CreateElement('meta');
HeadEl.AppendChild(El);
El['http-equiv'] := 'Content-Type';
El['content'] := 'text/html; charset=iso8859-1';
El['content'] := 'text/html; charset=iso-8859-1';
TitleElement := Doc.CreateElement('title');
HeadEl.AppendChild(TitleElement);
El := Doc.CreateElement('link');

2
utils/fpdoc/fpde/frmmain.pp
View File

@ -464,7 +464,7 @@ end;
Procedure TMainForm.FileNewClick(Sender : TFPGtkObject; Data : Pointer);
Const
template = '<?xml version="1.0" encoding="ISO8859-1"?>'+LineEnding+
template = '<?xml version="1.0" encoding="ISO-8859-1"?>'+LineEnding+
'<fpdoc-descriptions>'+LineEnding+
'</fpdoc-descriptions>'+LineEnding;

2
utils/fpdoc/fpde/pgeditor.pp
View File

@ -379,7 +379,7 @@ end;
Function TElementeditor.TestSave(S : String) : Boolean;
Const
Head = '<?xml version="1.0" encoding="ISO8859-1"?><fpdoc-descriptions>';
Head = '<?xml version="1.0" encoding="ISO-8859-1"?><fpdoc-descriptions>';
Tail = '</fpdoc-descriptions>';
SErrorSaving = 'There is an error in the documentation nodes:'+LineEnding+
'%s'+LineEnding+

2
utils/fpdoc/makeskel.pp
View File

@ -329,7 +329,7 @@ begin
Assign(f, OutputName);
Rewrite(f);
WriteLn(f, '<?xml version="1.0" encoding="ISO8859-1"?>');
WriteLn(f, '<?xml version="1.0" encoding="ISO-8859-1"?>');
WriteLn(f, '<fpdoc-descriptions>');
WriteLn(f, '<package name="', PackageName, '">');