(cp770-decode-table)

(cp773-decode-table, cp774-decode-table): New variables.

1 files changed, 40 insertions, 3 deletions

diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 340287446c4..871148f6fbe 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -416,15 +416,52 @@ character is generated by (make-char CHARSET OFFSET)."
 (setplist 'cp737-decode-table
 	  '(charset greek-iso8859-7 language "Greek" offset 160))
 
-;; Conversion from codepage 775 to Latin-4 for Baltic countries.
+;; Conversion from codepages 770-775 to Latin-4 for Baltic countries.
+;; FIXME: Once we support Latin-7, these should be remapped into it.
+(defvar cp770-decode-table
+  [
+   255 143 nil nil 155 nil 156 nil 157 159 137 168 nil 196 146 nil
+   248 133 nil nil nil nil 134 nil nil 158 136 152 nil nil 145 nil
+   160 nil nil nil 142 nil nil 173 128 nil 139 nil 144 nil nil 161
+   nil nil nil 163 nil 149 153 nil nil 167 nil nil 154 nil 166 225
+   131 nil nil nil 132 nil nil 141 135 nil 138 nil 130 nil nil 140
+   nil nil nil 162 nil 147 148 247 nil 151 nil nil 129 nil 150 nil]
+  "Table for converting ISO-8859-4 characters into codepage 770 glyphs.")
+(setplist 'cp770-decode-table
+	  '(charset latin-iso8859-4 language "Latin-4" offset 160))
+
+(defvar cp773-decode-table
+  [
+   255 220 nil 138 150 nil 234 190 166 246 237 149 173 196 252 nil
+   208 nil nil 139 239 nil 235 nil nil 247 137 133 136 nil 253 nil
+   160 nil nil nil 142 143 146 244 222 144 240 nil 242 nil nil 161
+   nil 238 226 232 nil 229 153 158 157 248 nil nil 154 nil 250 225
+   131 nil nil nil 132 134 145 245 223 130 241 nil 243 nil nil 140
+   nil 236 147 233 nil 228 148 198 155 249 nil nil 129 nil 251 nil]
+  "Table for converting ISO-8859-4 characters into codepage 773 glyphs.")
+(setplist 'cp773-decode-table
+	  '(charset latin-iso8859-4 language "Latin-4" offset 160))
+
+(defvar cp774-decode-table
+  [
+   255 181 nil nil 155 nil nil nil 245 190 nil nil nil 196 207 nil
+   248 208 nil nil nil nil nil nil nil 213 nil nil nil nil 216 nil
+   nil nil nil nil 142 143 146 189 182 144 183 nil 184 nil nil nil
+   nil nil nil nil nil nil 153 nil nil 198 nil nil 154 nil 199 225
+   nil 160 nil nil 132 134 145 212 209 130 210 137 211 161 140 nil
+   nil nil nil nil 147 nil 148 246 237 214 163 150 129 nil 215 248]
+  "Table for converting ISO-8859-4 characters into codepage 774 glyphs.")
+(setplist 'cp774-decode-table
+	  '(charset latin-iso8859-4 language "Latin-4" offset 160))
+
 (defvar cp775-decode-table
   [
    255 181 nil 138 150 nil 234 245 166 190 237 149 173 240 207 nil
-   248 208 nil 139 239 nil 235 nil nil 213 137 133 nil nil 216 nil
+   248 208 nil 139 239 nil 235 nil nil 213 137 133 136 nil 216 nil
    160 nil nil nil 142 143 146 189 182 144 183 nil 184 nil nil 161
    nil 238 226 232 nil 229 153 158 157 198 nil nil 154 nil 199 225
    131 nil nil nil 132 134 145 212 209 130 210 nil 211 nil nil 140
-   nil 236 147 233 nil 228 148 nil 155 214 nil nil 129 nil 215 nil]
+   nil 236 147 233 nil 228 148 247 155 214 nil nil 129 nil 215 nil]
   "Table for converting ISO-8859-4 characters into codepage 775 glyphs.")
 (setplist 'cp775-decode-table
 	  '(charset latin-iso8859-4 language "Latin-4" offset 160))