(ccl-encode-koi8-font): Fix bug of CCL

program.
(ccl-encode-alternativnyj-font): Likewise.

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 95a5efe..cad3a53 100644 (file)
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -121,7 +121,7 @@
 
 (define-ccl-program ccl-encode-koi8-font
   '(0
-    ((r1 -= 160)
+    ((r1 -= 32)
      (r1 = r1
         [ 32 179  32  32  32  32  32  32  32  32  32  32  32  32  32  32
              225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240
@@ -199,7 +199,7 @@
 
 (define-ccl-program ccl-encode-alternativnyj-font
   '(0
-    ((r1 -= 160)
+    ((r1 -= 32)
      (r1 = r1
         [ 32 240  32  32  32  32  32  32  32  32  32  32  32  32  32  32
              128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143