Mercurial > emacs
changeset 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 | b1f888ef9e7b |
| children | e6d92cac8e9b |
| files | lisp/language/cyrillic.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/cyrillic.el Wed Aug 18 02:21:51 2004 +0000 +++ b/lisp/language/cyrillic.el Wed Aug 18 08:53:21 2004 +0000 @@ -186,6 +186,13 @@ (define-coding-system-alias 'koi8 'cyrillic-koi8) (define-coding-system-alias 'cp878 'cyrillic-koi8) +(let ((elt `("koi8-r" koi8-r 1 + ,(get 'cyrillic-koi8-r-encode-table 'translation-table))) + (slot (assoc "koi8-r" ctext-non-standard-encodings-alist))) + (if slot + (setcdr slot (cdr elt)) + (push elt ctext-non-standard-encodings-alist))) + ;; Allow displaying some of KOI & al with an 8859-5-encoded font. We ;; won't bother about the exceptions when encoding the font, since ;; NBSP will fall through below and work anyhow, and we'll have @@ -219,6 +226,7 @@ 'translation-table)) (coding-system cyrillic-koi8) (coding-priority cyrillic-koi8 cyrillic-iso-8bit) + (ctext-non-standard-encoding "koi8-r") (input-method . "russian-typewriter") (features cyril-util) (unibyte-display . cyrillic-koi8)