diff options
| -rw-r--r-- | lisp/language/cyrillic.el | 35 |
1 files changed, 26 insertions, 9 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index b4135c68bfb..742da4fc5a0 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. -;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. ;; Author: Kenichi Handa <handa@etl.go.jp> ;; Keywords: multilingual, Cyrillic, i18n @@ -216,13 +216,29 @@ This works whether or not the table is Unicode-based or 'translation-table)) (coding-system cyrillic-koi8) (coding-priority cyrillic-koi8 cyrillic-iso-8bit) - (input-method . "cyrillic-jcuken") + (input-method . "russian-typewriter") (features cyril-util) (unibyte-display . cyrillic-koi8) (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") (documentation . "Support for Cyrillic KOI8-R.")) '("Cyrillic")) +(set-language-info-alist + "Russian" `((charset cyrillic-iso8859-5) + (nonascii-translation + . ,(get 'cyrillic-koi8-r-nonascii-translation-table + 'translation-table)) + (coding-system cyrillic-koi8) + (coding-priority cyrillic-koi8 cyrillic-iso-8bit) + (input-method . "russian-computer") + (features cyril-util) + (unibyte-display . cyrillic-koi8) + (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") + (documentation . "\ +Support for Russian using koi8-r and the russian-computer input method.") + (tutorial . "TUTORIAL.ru")) + '("Cyrillic")) + (defvar cyrillic-koi8-u-decode-table [ @@ -436,12 +452,12 @@ This works whether or not the table is Unicode-based or (set-language-info-alist "Tajik" `((coding-system cyrillic-koi8-t) - (coding-priority cyrillic-koi8-t) - (nonascii-translation - . ,(get 'decode-koi8-t 'translation-table)) - (input-method . "russian-typewriter") ; fixme? - (features code-pages) - (documentation . "Support for Tajik using KOI8-T.")) + (coding-priority cyrillic-koi8-t) + (nonascii-translation + . ,(get 'decode-koi8-t 'translation-table)) + (input-method . "russian-typewriter") ; fixme? + (features code-pages) + (documentation . "Support for Tajik using KOI8-T.")) '("Cyrillic")) (set-language-info-alist @@ -452,7 +468,8 @@ This works whether or not the table is Unicode-based or (input-method . "bulgarian-bds") (features code-pages) (documentation - . "Support for Bulgarian with windows-1251 character set.")) + . "Support for Bulgarian with windows-1251 character set.") + (tutorial . "TUTORIAL.bg")) '("Cyrillic")) (set-language-info-alist |