diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-12-13 04:45:43 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-12-13 04:45:43 +0000 |
| commit | 58566dff596304043559d71348c93e46ba18b7a2 (patch) | |
| tree | 99e3733d0fd1ac2a3e5ef2431b5bd2b7977ec35a | |
| parent | d850458362cced54f4f0ca6157fa180cf80199fc (diff) | |
| download | emacs-58566dff596304043559d71348c93e46ba18b7a2.tar.gz | |
(ccl-encode-koi8, ccl-encode-koi8-u)
(ccl-encode-alternativnyj): Fix last change.
| -rw-r--r-- | lisp/language/cyrillic.el | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 47cf5349f22..b4135c68bfb 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -140,9 +140,10 @@ ((loop (read-multibyte-character r0 r1) (translate-character cyrillic-koi8-r-encode-table r0 r1) - (if (r0 != ,(charset-id 'eight-bit-graphic)) - (if (r0 != ,(charset-id 'eight-bit-control)) - (r1 = ??))) + (if (r0 != ,(charset-id 'ascii)) + (if (r0 != ,(charset-id 'eight-bit-graphic)) + (if (r0 != ,(charset-id 'eight-bit-control)) + (r1 = ??)))) (write-repeat r1)))) "CCL program to encode KOI8-R.") @@ -280,9 +281,10 @@ This works whether or not the table is Unicode-based or ((loop (read-multibyte-character r0 r1) (translate-character cyrillic-koi8-u-encode-table r0 r1) - (if (r0 != ,(charset-id 'eight-bit-graphic)) - (if (r0 != ,(charset-id 'eight-bit-control)) - (r1 = ??))) + (if (r0 != ,(charset-id 'ascii)) + (if (r0 != ,(charset-id 'eight-bit-graphic)) + (if (r0 != ,(charset-id 'eight-bit-control)) + (r1 = ??)))) (write-repeat r1)))) "CCL program to encode KOI8-U.") @@ -381,9 +383,10 @@ This works whether or not the table is Unicode-based or ((loop (read-multibyte-character r0 r1) (translate-character cyrillic-alternativnyj-encode-table r0 r1) - (if (r0 != ,(charset-id 'eight-bit-graphic)) - (if (r0 != ,(charset-id 'eight-bit-control)) - (r1 = ??))) + (if (r0 != ,(charset-id 'ascii)) + (if (r0 != ,(charset-id 'eight-bit-graphic)) + (if (r0 != ,(charset-id 'eight-bit-control)) + (r1 = ??)))) (write-repeat r1)))) "CCL program to encode Alternativnyj.") |