Mercurial > emacs

comparison lisp/language/cyrillic.el @ 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 5c0a4ed13900
children 0856eb4dd6ec
comparison
equal deleted inserted replaced
24296:28d942c5d967 24297:a5b2e26efe7c
120 ;; will have to forgive us. 120 ;; will have to forgive us.
121 ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)" 121 ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)"
122 '(ccl-decode-koi8 . ccl-encode-koi8) 122 '(ccl-decode-koi8 . ccl-encode-koi8)
123 '((safe-charsets ascii cyrillic-iso8859-5) 123 '((safe-charsets ascii cyrillic-iso8859-5)
124 (mime-charset . koi8-r) 124 (mime-charset . koi8-r)
125 (valid-codes (0 . 127) 163 179 (192 . 255)))) 125 (valid-codes (0 . 127) 163 179 (192 . 255))
126 (charset-origin-alist (cyrillic-iso8859-5 "KOI8-R"
127 cyrillic-encode-koi8-r-char))))
126 128
127 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) 129 (define-coding-system-alias 'koi8-r 'cyrillic-koi8)
128 (define-coding-system-alias 'koi8 'cyrillic-koi8) 130 (define-coding-system-alias 'koi8 'cyrillic-koi8)
129 131
130 (define-ccl-program ccl-encode-koi8-font 132 (define-ccl-program ccl-encode-koi8-font
142 144
143 (set-language-info-alist 145 (set-language-info-alist
144 "Cyrillic-KOI8" `((charset cyrillic-iso8859-5) 146 "Cyrillic-KOI8" `((charset cyrillic-iso8859-5)
145 (nonascii-translation 147 (nonascii-translation
146 . ,cyrillic-koi8-r-nonascii-translation-table) 148 . ,cyrillic-koi8-r-nonascii-translation-table)
147 (charset-origin-alist
148 (cyrillic-iso8859-5 "KOI8-R" cyrillic-encode-koi8-r-char))
149 (coding-system cyrillic-koi8) 149 (coding-system cyrillic-koi8)
150 (coding-priority cyrillic-koi8) 150 (coding-priority cyrillic-koi8)
151 (input-method . "cyrillic-yawerty") 151 (input-method . "cyrillic-yawerty")
152 (features cyril-util) 152 (features cyril-util)
153 (unibyte-display . cyrillic-koi8) 153 (unibyte-display . cyrillic-koi8)
216 (make-coding-system 216 (make-coding-system
217 'cyrillic-alternativnyj 4 ?A 217 'cyrillic-alternativnyj 4 ?A
218 "ALTERNATIVNYJ 8-bit encoding for Cyrillic" 218 "ALTERNATIVNYJ 8-bit encoding for Cyrillic"
219 '(ccl-decode-alternativnyj . ccl-encode-alternativnyj) 219 '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
220 '((safe-charsets ascii cyrillic-iso8859-5) 220 '((safe-charsets ascii cyrillic-iso8859-5)
221 (valid-codes (0 . 175) (224 . 241) 255))) 221 (valid-codes (0 . 175) (224 . 241) 255)
222 (charset-origin-alist (cyrillic-iso8859-5 "ALTERNATIVNYJ"
223 cyrillic-encode-koi8-r-char))))
224
222 225
223 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) 226 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
224 227
225 (define-ccl-program ccl-encode-alternativnyj-font 228 (define-ccl-program ccl-encode-alternativnyj-font
226 '(0 229 '(0
238 241
239 (set-language-info-alist 242 (set-language-info-alist
240 "Cyrillic-ALT" `((charset cyrillic-iso8859-5) 243 "Cyrillic-ALT" `((charset cyrillic-iso8859-5)
241 (nonascii-translation 244 (nonascii-translation
242 . ,cyrillic-alternativnyj-nonascii-translation-table) 245 . ,cyrillic-alternativnyj-nonascii-translation-table)
243 (charset-origin-alist
244 (cyrillic-iso8859-5 "ALTERNATIVNYJ"
245 cyrillic-encode-koi8-r-char))
246 (coding-system cyrillic-alternativnyj) 246 (coding-system cyrillic-alternativnyj)
247 (coding-priority cyrillic-alternativnyj) 247 (coding-priority cyrillic-alternativnyj)
248 (input-method . "cyrillic-yawerty") 248 (input-method . "cyrillic-yawerty")
249 (features cyril-util) 249 (features cyril-util)
250 (unibyte-display . cyrillic-alternativnyj) 250 (unibyte-display . cyrillic-alternativnyj)