aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/international/codepage.el
diff options
context:
space:
mode:
authorEli Zaretskii <[email protected]>2000-12-18 12:36:36 +0000
committerEli Zaretskii <[email protected]>2000-12-18 12:36:36 +0000
commit573191a15340f0aa45c9d9114a1a68c54a09a3ab (patch)
tree777105a50956a4dee9d6730d99463bb67eb8d4ec /lisp/international/codepage.el
parent2a64f8c22a0e5f0bd4c4955fe9a1924bf1f0f417 (diff)
(cp866-decode-table): New table.
Diffstat (limited to 'lisp/international/codepage.el')
-rw-r--r--lisp/international/codepage.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 65b2ce2c64..340287446c 100644
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -376,6 +376,20 @@ character is generated by (make-char CHARSET OFFSET)."
(setplist 'cp865-decode-table
'(charset latin-iso8859-1 language "Latin-1" offset 160))
+;; Russian (Yes, another one! This one's supposed to be used
+;; on Windows as the Russian OEM code page.)
+(defvar cp866-decode-table
+ [
+ 255 240 nil nil 242 nil nil 244 nil nil nil nil nil nil 246 nil
+ 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
+ 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
+ 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
+ 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238
+ 252 241 nil nil 243 nil nil 245 nil nil nil nil nil nil 247 nil]
+ "Table for converting ISO-8859-5 characters into codepage 866 glyphs.")
+(setplist 'cp866-decode-table
+ '(charset cyrillic-iso8859-5 language "Cyrillic-ISO" offset 160))
+
;; Greek (yes, another one!)
(defvar cp869-decode-table
[