(cp866-decode-table): New table.

diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 65b2ce2c64b8dbfa1588915afb8f1708ada222b5..340287446c477fd85ed052393bedc3f2391ad7a5 100644 (file)
--- 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
   [