From f7be00d0803ac20183d477c113057b3d3054ad2f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 27 May 2005 10:39:45 +0000
Subject: [PATCH] + Patch from Vincent Snijders to fix character set indication

git-svn-id: trunk@127 -
---
 utils/fpdoc/dw_html.pp       | 2 +-
 utils/fpdoc/fpde/frmmain.pp  | 2 +-
 utils/fpdoc/fpde/pgeditor.pp | 2 +-
 utils/fpdoc/makeskel.pp      | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index 80ff3a06b1..2fba9c0b31 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -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');
diff --git a/utils/fpdoc/fpde/frmmain.pp b/utils/fpdoc/fpde/frmmain.pp
index d93907c669..3b68cbbb3b 100644
--- a/utils/fpdoc/fpde/frmmain.pp
+++ b/utils/fpdoc/fpde/frmmain.pp
@@ -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;
 
diff --git a/utils/fpdoc/fpde/pgeditor.pp b/utils/fpdoc/fpde/pgeditor.pp
index b0b9d011ef..d05dd655c6 100644
--- a/utils/fpdoc/fpde/pgeditor.pp
+++ b/utils/fpdoc/fpde/pgeditor.pp
@@ -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+
diff --git a/utils/fpdoc/makeskel.pp b/utils/fpdoc/makeskel.pp
index 23ec09ad94..10c31f99fa 100644
--- a/utils/fpdoc/makeskel.pp
+++ b/utils/fpdoc/makeskel.pp
@@ -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, '">');