Mercurial > emacs
changeset 48832:351ae4e51f08
(ccl-encode-koi8, ccl-encode-koi8-u)
(ccl-encode-alternativnyj): Fix last change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 13 Dec 2002 04:45:43 +0000 |
| parents | 55e7852135dc |
| children | df00563bf991 |
| files | lisp/language/cyrillic.el |
| diffstat | 1 files changed, 12 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/cyrillic.el Fri Dec 13 04:45:14 2002 +0000 +++ b/lisp/language/cyrillic.el Fri Dec 13 04:45:43 2002 +0000 @@ -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 @@ ((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 @@ ((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.")