From b3d1d85a4b73af6f08f0408398a5b8ecdd9a2f04 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 8 Jul 2013 17:03:48 +0000
Subject: [PATCH] lazutils: made codepage conversion 1253 to UTF8 and back to
 1253 lossless

git-svn-id: trunk@42018 -
---
 components/lazutils/lconvencoding.pas | 39 +++++++++++++--------------
 1 file changed, 19 insertions(+), 20 deletions(-)

diff --git a/components/lazutils/lconvencoding.pas b/components/lazutils/lconvencoding.pas
index c68e9b60d4..c050d38662 100644
--- a/components/lazutils/lconvencoding.pas
+++ b/components/lazutils/lconvencoding.pas
@@ -1904,22 +1904,22 @@ const
     '~',                // '~'
     #127,               // #127
     #226#130#172,       // #128
-    '',                 // #129
+    #194#129,           // #129
     #226#128#154,       // #130
     #198#146,           // #131
     #226#128#158,       // #132
     #226#128#166,       // #133
     #226#128#160,       // #134
     #226#128#161,       // #135
-    '',                 // #136
+    #194#136,           // #136
     #226#128#176,       // #137
-    '',                 // #138
+    #194#138,           // #138
     #226#128#185,       // #139
-    '',                 // #140
-    '',                 // #141
-    '',                 // #142
-    '',                 // #143
-    '',                 // #144
+    #194#140,           // #140
+    #194#141,           // #141
+    #194#142,           // #142
+    #194#143,           // #143
+    #194#144,           // #144
     #226#128#152,       // #145
     #226#128#153,       // #146
     #226#128#156,       // #147
@@ -1927,14 +1927,14 @@ const
     #226#128#162,       // #149
     #226#128#147,       // #150
     #226#128#148,       // #151
-    '',                 // #152
+    #194#152,            // #152
     #226#132#162,       // #153
-    '',                 // #154
+    #194#154,           // #154
     #226#128#186,       // #155
-    '',                 // #156
-    '',                 // #157
-    '',                 // #158
-    '',                 // #159
+    #194#156,           // #156
+    #194#157,           // #157
+    #194#158,           // #158
+    #194#159,           // #159
     #194#160,           // #160
     #206#133,           // #161
     #206#134,           // #162
@@ -1945,7 +1945,7 @@ const
     #194#167,           // #167
     #194#168,           // #168
     #194#169,           // #169
-    '',                 // #170
+    #194#170,           // #170
     #194#171,           // #171
     #194#172,           // #172
     #194#173,           // #173
@@ -1985,7 +1985,7 @@ const
     #206#159,           // #207
     #206#160,           // #208
     #206#161,           // #209
-    '',                 // #210
+    #206#162,           // #210
     #206#163,           // #211
     #206#164,           // #212
     #206#165,           // #213
@@ -2030,7 +2030,7 @@ const
     #207#140,           // #252
     #207#141,           // #253
     #207#142,           // #254
-    ''                  // #255
+    #207#143            // #255
   );
 
   ArrayCP1254ToUTF8: TCharToUTF8Table = (
@@ -5281,7 +5281,7 @@ end;
 function UnicodeToCP1253(Unicode: cardinal): integer;
 begin
   case Unicode of
-  0..127: Result:=Unicode;
+  0..127,129,136,138,140,141,142,143,144,152,154,156,157,158,159,170: Result:=Unicode;
   160: Result:=160;
   163..169: Result:=Unicode;
   171..174: Result:=Unicode;
@@ -5294,8 +5294,7 @@ begin
   901..902: Result:=Unicode-740;
   904..906: Result:=Unicode-720;
   908: Result:=188;
-  910..929: Result:=Unicode-720;
-  931..974: Result:=Unicode-720;
+  910..975: Result:=Unicode-720;
   8211..8212: Result:=Unicode-8061;
   8213: Result:=175;
   8216..8217: Result:=Unicode-8071;