diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-06-10 01:08:21 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-06-10 01:08:21 +0000 |
| commit | 4b9121fc866aa8820d8844079e4fef3f5200b430 (patch) | |
| tree | 6e2f3c0303fb6f2d20415fb04a46f20f0d9b2aa5 /lisp/language/cyrillic.el | |
| parent | c47cd165b03a307f85d288ad685a0640c791e342 (diff) | |
| download | emacs-4b9121fc866aa8820d8844079e4fef3f5200b430.tar.gz emacs-4b9121fc866aa8820d8844079e4fef3f5200b430.tar.bz2 emacs-4b9121fc866aa8820d8844079e4fef3f5200b430.zip | |
Adjusted for coding system name change.
Diffstat (limited to 'lisp/language/cyrillic.el')
| -rw-r--r-- | lisp/language/cyrillic.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 787d6e19278..88489b6d611 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -92,7 +92,7 @@ "CCL program to encode KOI8.") (make-coding-system - 'koi8-r 4 + 'cyrillic-koi8 4 ;; We used to use ?K. It is true that ?K is more strictly correct, ;; but it is also used for Korean. ;; So people who use koi8 for languages other than Russian @@ -100,7 +100,8 @@ ?R "Coding-system used for KOI8." (cons ccl-decode-koi8 ccl-encode-koi8)) -(define-coding-system-alias 'koi8-r 'koi8) +(define-coding-system-alias 'cyrillic-koi8 'koi8-r) +(define-coding-system-alias 'cyrillic-koi8 'koi8) (define-ccl-program ccl-encode-koi8-font '(0 @@ -209,19 +210,19 @@ (documentation . (t . describe-cyrillic-environment-map)))) (set-language-info-alist - "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-iso-environment + "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-koi8-environment . setup-cyrillic-environment-map)) (charset . (cyrillic-iso8859-5)) - (coding-system . (koi8-4)) + (coding-system . (cyrillic-koi8)) (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") (documentation . (t . describe-cyrillic-environment-map)))) (set-language-info-alist "Cyrillic-Alternativnyj" '((setup-function - . (setup-cyrillic-iso-environment + . (setup-cyrillic-alternativnyj-environment . setup-cyrillic-environment-map)) (charset . (cyrillic-iso8859-5)) - (coding-system . (alternativnyj)) + (coding-system . (cyrillic-alternativnyj)) (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") (documentation . (t . describe-cyrillic-environment-map)))) |