Mercurial > emacs
comparison lisp/language/cyrillic.el @ 20159:dce0d588d203
Give proper SAFE-CHARSET argument in each
call of make-coding-system.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 23 Oct 1997 12:03:41 +0000 |
| parents | 933bea774c3c |
| children | f1655c49bf01 |
comparison
equal
deleted
inserted
replaced
| 20158:36eb3e583396 | 20159:dce0d588d203 |
|---|---|
| 45 | 45 |
| 46 (make-coding-system | 46 (make-coding-system |
| 47 'cyrillic-iso-8bit 2 ?5 | 47 'cyrillic-iso-8bit 2 ?5 |
| 48 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)" | 48 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)" |
| 49 '((ascii t) (cyrillic-iso8859-5 t) nil nil | 49 '((ascii t) (cyrillic-iso8859-5 t) nil nil |
| 50 nil ascii-eol ascii-cntl nil nil nil nil)) | 50 nil ascii-eol ascii-cntl nil nil nil nil) |
| 51 '(ascii cyrillic-iso8859-5)) | |
| 51 | 52 |
| 52 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) | 53 (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) |
| 53 | 54 |
| 54 (set-language-info-alist | 55 (set-language-info-alist |
| 55 "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment | 56 "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment |
| 110 ;; We used to use ?K. It is true that ?K is more strictly correct, | 111 ;; We used to use ?K. It is true that ?K is more strictly correct, |
| 111 ;; but it is also used for Korean. | 112 ;; but it is also used for Korean. |
| 112 ;; So people who use koi8 for languages other than Russian | 113 ;; So people who use koi8 for languages other than Russian |
| 113 ;; will have to forgive us. | 114 ;; will have to forgive us. |
| 114 ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)" | 115 ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)" |
| 115 (cons ccl-decode-koi8 ccl-encode-koi8)) | 116 (cons ccl-decode-koi8 ccl-encode-koi8) |
| 117 '(ascii cyrillic-iso8859-5)) | |
| 116 | 118 |
| 117 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) | 119 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) |
| 118 (define-coding-system-alias 'koi8 'cyrillic-koi8) | 120 (define-coding-system-alias 'koi8 'cyrillic-koi8) |
| 119 | 121 |
| 120 (define-ccl-program ccl-encode-koi8-font | 122 (define-ccl-program ccl-encode-koi8-font |
| 188 "CCL program to encode Alternativnyj.") | 190 "CCL program to encode Alternativnyj.") |
| 189 | 191 |
| 190 (make-coding-system | 192 (make-coding-system |
| 191 'cyrillic-alternativnyj 4 ?A | 193 'cyrillic-alternativnyj 4 ?A |
| 192 "ALTERNATIVNYJ 8-bit encoding for Cyrillic" | 194 "ALTERNATIVNYJ 8-bit encoding for Cyrillic" |
| 193 (cons ccl-decode-alternativnyj ccl-encode-alternativnyj)) | 195 (cons ccl-decode-alternativnyj ccl-encode-alternativnyj) |
| 196 '(ascii cyrillic-iso8859-5)) | |
| 194 | 197 |
| 195 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) | 198 (define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj) |
| 196 | 199 |
| 197 (define-ccl-program ccl-encode-alternativnyj-font | 200 (define-ccl-program ccl-encode-alternativnyj-font |
| 198 '(0 | 201 '(0 |