(cp855, ibm855): New coding systems.

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index b1cd6ff8c88d7526c0e36fb97c43905a3fefe8f2..76a04c3d0812e2697f9041579c0d4f551c8df6d8 100644 (file)
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -138,6 +138,14 @@
 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
 (define-coding-system-alias 'cp866u 'cp1125)
 
+(define-coding-system 'cp855
+  "DOS codepage 855 (Russian)"
+  :coding-type 'charset
+  :mnemonic ?D
+  :charset-list '(cp855)
+  :mime-charset 'cp855)
+(define-coding-system-alias 'ibm855 'cp855)
+
 (provide 'cyrillic)
 
 ;;; cyrillic.el ends here