Mercurial > emacs
comparison lisp/language/cyrillic.el @ 88512:1e2fb9a9f29c
(cyrillic-iso-8bit, cyrillic-koi8)
(cyrillic-alternativnyj): Fix :mime-charset.
(cp878, cp866): New alias.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 14 May 2002 15:36:38 +0000 |
| parents | fad0f879877f |
| children | 3080874809b6 |
comparison
equal
deleted
inserted
replaced
| 88511:8921fa5b6ff9 | 88512:1e2fb9a9f29c |
|---|---|
| 37 (define-coding-system 'cyrillic-iso-8bit | 37 (define-coding-system 'cyrillic-iso-8bit |
| 38 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)." | 38 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)." |
| 39 :coding-type 'charset | 39 :coding-type 'charset |
| 40 :mnemonic ?5 | 40 :mnemonic ?5 |
| 41 :charset-list '(iso-8859-5) | 41 :charset-list '(iso-8859-5) |
| 42 :plist '(mime-charset iso-8859-5)) | 42 :mime-charset 'iso-8859-5) |
| 43 | 43 |
| 44 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) | 44 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) |
| 45 | 45 |
| 46 (set-language-info-alist | 46 (set-language-info-alist |
| 47 "Cyrillic-ISO" '((charset iso-8859-5) | 47 "Cyrillic-ISO" '((charset iso-8859-5) |
| 63 ;; We used to use ?K. It is true that ?K is more strictly correct, | 63 ;; We used to use ?K. It is true that ?K is more strictly correct, |
| 64 ;; but it is also used for Korean. So people who use koi8 for | 64 ;; but it is also used for Korean. So people who use koi8 for |
| 65 ;; languages other than Russian will have to forgive us. | 65 ;; languages other than Russian will have to forgive us. |
| 66 :mnemonic ?R | 66 :mnemonic ?R |
| 67 :charset-list '(koi8) | 67 :charset-list '(koi8) |
| 68 :plist '(mime-charset koi8-r)) | 68 :mime-charset 'koi8-r) |
| 69 | 69 |
| 70 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) | 70 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) |
| 71 (define-coding-system-alias 'koi8 'cyrillic-koi8) | 71 (define-coding-system-alias 'koi8 'cyrillic-koi8) |
| 72 (define-coding-system-alias 'cp878 'cyrillic-koi8) | |
| 72 | 73 |
| 73 (set-language-info-alist | 74 (set-language-info-alist |
| 74 "Cyrillic-KOI8" `((charset koi8) | 75 "Cyrillic-KOI8" `((charset koi8) |
| 75 (coding-system cyrillic-koi8) | 76 (coding-system cyrillic-koi8) |
| 76 (coding-priority cyrillic-koi8) | 77 (coding-priority cyrillic-koi8) |
| 86 | 87 |
| 87 (define-coding-system 'cyrillic-alternativnyj | 88 (define-coding-system 'cyrillic-alternativnyj |
| 88 "ALTERNATIVNYJ 8-bit encoding for Cyrillic." | 89 "ALTERNATIVNYJ 8-bit encoding for Cyrillic." |
| 89 :coding-type 'charset | 90 :coding-type 'charset |
| 90 :mnemonic ?A | 91 :mnemonic ?A |
| 91 :charset-list '(alternativnyj)) | 92 :charset-list '(alternativnyj) |
| 93 :mime-charset 'cp866) | |
| 92 | 94 |
| 93 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) | 95 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) |
| 96 (define-coding-system-alias 'cp866 'cyrillic-alternativnyj) | |
| 94 | 97 |
| 95 (set-language-info-alist | 98 (set-language-info-alist |
| 96 "Cyrillic-ALT" `((charset alternativnyj) | 99 "Cyrillic-ALT" `((charset alternativnyj) |
| 97 (coding-system cyrillic-alternativnyj) | 100 (coding-system cyrillic-alternativnyj) |
| 98 (coding-priority cyrillic-alternativnyj) | 101 (coding-priority cyrillic-alternativnyj) |