Mercurial > emacs

changeset 49795:0f184780c237 RMAIL-MBOX-BASE

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("Cyrillic-KOI8"): Fix input-method. ("Russian"): New. ("Bulgarian"): Add tutorial.
author Dave Love <fx@gnu.org>
date Fri, 14 Feb 2003 12:55:08 +0000
parents dbd2a70bc8f0
children 9444af9dba75 30235d819e60
files lisp/language/cyrillic.el
diffstat 1 files changed, 26 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Fri Feb 14 11:09:52 2003 +0000
+++ b/lisp/language/cyrillic.el	Fri Feb 14 12:55:08 2003 +0000
@@ -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 @@
 			    '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 @@
 
 (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 @@
 	       (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