summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2000-12-18 12:36:36 +0000
committerEli Zaretskii <eliz@gnu.org>2000-12-18 12:36:36 +0000
commitf601d4f5dac080d1c3e6712fc72219a4d93a4390 (patch)
treefc70d890ff22ee0864a1b78f81ace76655706980 /lisp
parentbe743c1e8042750a33bc37dd2fba9bbac6ce1ac0 (diff)
downloademacs-f601d4f5dac080d1c3e6712fc72219a4d93a4390.tar.gz
(cp866-decode-table): New table.
Diffstat (limited to 'lisp')
-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 65b2ce2c64b..340287446c4 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
[