(ccl-encode-koi8)

(ccl-encode-alternativnyj): Deal with unencodable characters.

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 392958adcd9f31a1ea9b7930391489152019f3c2..f476075cb25ae4c586a890213dfe5f06fb9fd32c 100644 (file)
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -102,6 +102,9 @@
       (read-multibyte-character r0 r1)
       (if (r0 == ,(charset-id 'cyrillic-iso8859-5))
          (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.")
             
@@ -197,6 +200,9 @@
     ((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.")