Mercurial > emacs
comparison lisp/language/cyrillic.el @ 56709:d3defd7cdd9f
Register koi8-r in
ctext-non-standard-encodings-alist.
("Cyrillic-KOI8"): Add ctext-non-standard-encoding.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 18 Aug 2004 08:53:21 +0000 |
| parents | e349592390bc |
| children | e6d92cac8e9b |
comparison
equal
deleted
inserted
replaced
| 56708:b1f888ef9e7b | 56709:d3defd7cdd9f |
|---|---|
| 184 | 184 |
| 185 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) | 185 (define-coding-system-alias 'koi8-r 'cyrillic-koi8) |
| 186 (define-coding-system-alias 'koi8 'cyrillic-koi8) | 186 (define-coding-system-alias 'koi8 'cyrillic-koi8) |
| 187 (define-coding-system-alias 'cp878 'cyrillic-koi8) | 187 (define-coding-system-alias 'cp878 'cyrillic-koi8) |
| 188 | 188 |
| 189 (let ((elt `("koi8-r" koi8-r 1 | |
| 190 ,(get 'cyrillic-koi8-r-encode-table 'translation-table))) | |
| 191 (slot (assoc "koi8-r" ctext-non-standard-encodings-alist))) | |
| 192 (if slot | |
| 193 (setcdr slot (cdr elt)) | |
| 194 (push elt ctext-non-standard-encodings-alist))) | |
| 195 | |
| 189 ;; Allow displaying some of KOI & al with an 8859-5-encoded font. We | 196 ;; Allow displaying some of KOI & al with an 8859-5-encoded font. We |
| 190 ;; won't bother about the exceptions when encoding the font, since | 197 ;; won't bother about the exceptions when encoding the font, since |
| 191 ;; NBSP will fall through below and work anyhow, and we'll have | 198 ;; NBSP will fall through below and work anyhow, and we'll have |
| 192 ;; avoided setting the fontset for the other two to 8859-5 -- they're | 199 ;; avoided setting the fontset for the other two to 8859-5 -- they're |
| 193 ;; not in KOI and Alternativnyj anyhow. | 200 ;; not in KOI and Alternativnyj anyhow. |
| 217 (nonascii-translation | 224 (nonascii-translation |
| 218 . ,(get 'cyrillic-koi8-r-nonascii-translation-table | 225 . ,(get 'cyrillic-koi8-r-nonascii-translation-table |
| 219 'translation-table)) | 226 'translation-table)) |
| 220 (coding-system cyrillic-koi8) | 227 (coding-system cyrillic-koi8) |
| 221 (coding-priority cyrillic-koi8 cyrillic-iso-8bit) | 228 (coding-priority cyrillic-koi8 cyrillic-iso-8bit) |
| 229 (ctext-non-standard-encoding "koi8-r") | |
| 222 (input-method . "russian-typewriter") | 230 (input-method . "russian-typewriter") |
| 223 (features cyril-util) | 231 (features cyril-util) |
| 224 (unibyte-display . cyrillic-koi8) | 232 (unibyte-display . cyrillic-koi8) |
| 225 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") | 233 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |
| 226 (documentation . "Support for Cyrillic KOI8-R.")) | 234 (documentation . "Support for Cyrillic KOI8-R.")) |