(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 95a5efe5e0acf902a454f41e93750cc5fa347dc2..cad3a53f8e94a67ab619906feecc9f12087e8e41 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