From 968338c428c6c95b4731552e1394ca2cc8c2c7b6 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Wed, 18 Nov 2009 11:42:35 +0000
Subject: [PATCH] * Reverted removal of 'ISO8859-1' encoding because it is
 still used in fcl-registry.

git-svn-id: trunk@14209 -
---
 packages/fcl-xml/src/xmlread.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-xml/src/xmlread.pp b/packages/fcl-xml/src/xmlread.pp
index 153f174279..e5e7ab6552 100644
--- a/packages/fcl-xml/src/xmlread.pp
+++ b/packages/fcl-xml/src/xmlread.pp
@@ -642,7 +642,10 @@ begin
             SameText(AEncoding, 'l1') or
             SameText(AEncoding, 'IBM819') 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;
 
 procedure BufAllocate(var ABuffer: TWideCharBuf; ALength: Integer);