# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1038334618 0
# Node ID 930e1c30b4eaad233c08fb997c285b9a0e533bb2
# Parent  12718f5f58aa3108ee81b774cb288a91da8d6935
(ccl-encode-koi8, ccl-encode-koi8-u)
(ccl-encode-alternativnyj): Deal with unencodable characters.

diff -r 12718f5f58aa -r 930e1c30b4ea lisp/language/cyrillic.el
--- a/lisp/language/cyrillic.el	Tue Nov 26 18:16:28 2002 +0000
+++ b/lisp/language/cyrillic.el	Tue Nov 26 18:16:58 2002 +0000
@@ -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 @@
     ((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 @@
     ((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.")