Browse Source

* Reverted removal of 'ISO8859-1' encoding because it is still used in fcl-registry.

git-svn-id: trunk@14209 -
sergei 15 years ago
parent
commit
968338c428
1 changed files with 4 additions and 1 deletions
  1. 4 1
      packages/fcl-xml/src/xmlread.pp

+ 4 - 1
packages/fcl-xml/src/xmlread.pp

@@ -642,7 +642,10 @@ begin
             SameText(AEncoding, 'l1') or
             SameText(AEncoding, 'l1') or
             SameText(AEncoding, 'IBM819') or
             SameText(AEncoding, 'IBM819') or
             SameText(AEncoding, 'CP819') or
             SameText(AEncoding, 'CP819') or
-            SameText(AEncoding, 'csISOLatin1');
+            SameText(AEncoding, 'csISOLatin1') or
+// This one is not in character-sets.txt, but was used in FPC documentation,
+// and still being used in fcl-registry package
+            SameText(AEncoding, 'ISO8859-1');
 end;
 end;
 
 
 procedure BufAllocate(var ABuffer: TWideCharBuf; ALength: Integer);
 procedure BufAllocate(var ABuffer: TWideCharBuf; ALength: Integer);