Mercurial > emacs

changeset 24297:a5b2e26efe7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cyrillic-koi8): Add charset-origin-alist property. (cyrillic-alternativnyj): Likewise. ("Cyrillic-KOI8"): Remove charset-origin-alist property. ("Cyrillic-ALT"): Likewise.
author Kenichi Handa <handa@m17n.org>
date Fri, 12 Feb 1999 07:46:42 +0000
parents 28d942c5d967
children c10e64cb7fb1
files lisp/language/cyrillic.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Fri Feb 12 07:46:42 1999 +0000
+++ b/lisp/language/cyrillic.el	Fri Feb 12 07:46:42 1999 +0000
@@ -122,7 +122,9 @@
  '(ccl-decode-koi8 . ccl-encode-koi8)
  '((safe-charsets ascii cyrillic-iso8859-5)
    (mime-charset . koi8-r)
-   (valid-codes (0 . 127) 163 179 (192 . 255))))
+   (valid-codes (0 . 127) 163 179 (192 . 255))
+   (charset-origin-alist (cyrillic-iso8859-5 "KOI8-R"
+					     cyrillic-encode-koi8-r-char))))
 
 (define-coding-system-alias 'koi8-r 'cyrillic-koi8)
 (define-coding-system-alias 'koi8 'cyrillic-koi8)
@@ -144,8 +146,6 @@
  "Cyrillic-KOI8" `((charset cyrillic-iso8859-5)
 		   (nonascii-translation
 		    . ,cyrillic-koi8-r-nonascii-translation-table)
-		   (charset-origin-alist
-		    (cyrillic-iso8859-5 "KOI8-R" cyrillic-encode-koi8-r-char))
 		   (coding-system cyrillic-koi8)
 		   (coding-priority cyrillic-koi8)
 		   (input-method . "cyrillic-yawerty")
@@ -218,7 +218,10 @@
  "ALTERNATIVNYJ 8-bit encoding for Cyrillic"
  '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
  '((safe-charsets ascii cyrillic-iso8859-5)
-   (valid-codes (0 . 175) (224 . 241) 255)))
+   (valid-codes (0 . 175) (224 . 241) 255)
+   (charset-origin-alist (cyrillic-iso8859-5 "ALTERNATIVNYJ"
+					     cyrillic-encode-koi8-r-char))))
+
 
 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
 
@@ -240,9 +243,6 @@
  "Cyrillic-ALT" `((charset cyrillic-iso8859-5)
 		  (nonascii-translation
 		   . ,cyrillic-alternativnyj-nonascii-translation-table)
-		  (charset-origin-alist
-		   (cyrillic-iso8859-5 "ALTERNATIVNYJ"
-				       cyrillic-encode-koi8-r-char))
 		  (coding-system cyrillic-alternativnyj)
 		  (coding-priority cyrillic-alternativnyj)
 		  (input-method . "cyrillic-yawerty")