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 |