[Emacs-diffs] Changes to emacs/lisp/language/cyrillic.el

[Miles Bader]

Index: emacs/lisp/language/cyrillic.el
diff -c emacs/lisp/language/cyrillic.el:1.39 
emacs/lisp/language/cyrillic.el:1.40
*** emacs/lisp/language/cyrillic.el:1.39        Thu Dec 12 23:45:43 2002
--- emacs/lisp/language/cyrillic.el     Fri Feb 14 07:55:08 2003
***************
*** 2,8 ****
  
  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
! ;; Copyright (C) 2001, 2002  Free Software Foundation, Inc.
  
  ;; Author: Kenichi Handa <address@hidden>
  ;; Keywords: multilingual, Cyrillic, i18n
--- 2,8 ----
  
  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
! ;; Copyright (C) 2001, 2002, 2003  Free Software Foundation, Inc.
  
  ;; Author: Kenichi Handa <address@hidden>
  ;; Keywords: multilingual, Cyrillic, i18n
***************
*** 216,228 ****
                            'translation-table))
                   (coding-system cyrillic-koi8)
                   (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
!                  (input-method . "cyrillic-jcuken")
                   (features cyril-util)
                   (unibyte-display . cyrillic-koi8)
                   (sample-text . "Russian (,address@hidden(B) 
,L7T`PRabRcYbU(B!")
                   (documentation . "Support for Cyrillic KOI8-R."))
   '("Cyrillic"))
  
  
  (defvar cyrillic-koi8-u-decode-table
    [
--- 216,244 ----
                            'translation-table))
                   (coding-system cyrillic-koi8)
                   (coding-priority cyrillic-koi8 cyrillic-iso-8bit)
!                  (input-method . "russian-typewriter")
                   (features cyril-util)
                   (unibyte-display . cyrillic-koi8)
                   (sample-text . "Russian (,address@hidden(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 (,address@hidden(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,447 ****
  
  (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."))
   '("Cyrillic"))
  
  (set-language-info-alist
--- 452,463 ----
  
  (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."))
   '("Cyrillic"))
  
  (set-language-info-alist
***************
*** 452,458 ****
               (input-method . "bulgarian-bds")
                  (features code-pages)
               (documentation
!               . "Support for Bulgarian with windows-1251 character set."))
   '("Cyrillic"))
  
  (set-language-info-alist
--- 468,475 ----
               (input-method . "bulgarian-bds")
                  (features code-pages)
               (documentation
!               . "Support for Bulgarian with windows-1251 character set.")
!              (tutorial . "TUTORIAL.bg"))
   '("Cyrillic"))
  
  (set-language-info-alist