From 149c2e798533130ed2218096de70f3ed6390e363 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 26 Nov 2002 18:16:58 +0000 Subject: [PATCH] (ccl-encode-koi8, ccl-encode-koi8-u) (ccl-encode-alternativnyj): Deal with unencodable characters. --- lisp/language/cyrillic.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index d49996a0e64..47cf5349f22 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -140,6 +140,9 @@ ((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 = ??))) (write-repeat r1)))) "CCL program to encode KOI8-R.") @@ -277,6 +280,9 @@ 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 = ??))) (write-repeat r1)))) "CCL program to encode KOI8-U.") @@ -375,6 +381,9 @@ 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 = ??))) (write-repeat r1)))) "CCL program to encode Alternativnyj.") -- 2.39.2