diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-08-18 08:53:21 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-08-18 08:53:21 +0000 |
| commit | 7be5dbd48ee3352bae791560fa259e0a70efb5fe (patch) | |
| tree | fc2ab546d26e4da588fe501e80e0c6343295780c | |
| parent | eacd5edcd3f50db44271fae73dce8949ceb47ca8 (diff) | |
| download | emacs-7be5dbd48ee3352bae791560fa259e0a70efb5fe.tar.gz emacs-7be5dbd48ee3352bae791560fa259e0a70efb5fe.tar.bz2 emacs-7be5dbd48ee3352bae791560fa259e0a70efb5fe.zip | |
Register koi8-r in
ctext-non-standard-encodings-alist.
("Cyrillic-KOI8"): Add ctext-non-standard-encoding.
| -rw-r--r-- | lisp/language/cyrillic.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index dc05f24698a..302929a116b 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -186,6 +186,13 @@ This works whether or not the table is Unicode-based or (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 @@ This works whether or not the table is Unicode-based or '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) |