# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1039754743 0
# Node ID 351ae4e51f0847389179f0615420ab635c8aba49
# Parent  55e7852135dcc8b3e00306f08a145ed43c6cd585
(ccl-encode-koi8, ccl-encode-koi8-u)
(ccl-encode-alternativnyj): Fix last change.

diff -r 55e7852135dc -r 351ae4e51f08 lisp/language/cyrillic.el
--- 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.")