# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 878958490 0
# Node ID f1655c49bf018426cca6f867f3bd58cc225477ee
# Parent  5031189adff2d4719e6de357933f1ecbcd2f4697
(ccl-encode-koi8-font): Fix bug of CCL
program.
(ccl-encode-alternativnyj-font): Likewise.

diff -r 5031189adff2 -r f1655c49bf01 lisp/language/cyrillic.el
--- a/lisp/language/cyrillic.el	Sat Nov 08 03:08:10 1997 +0000
+++ b/lisp/language/cyrillic.el	Sat Nov 08 03:08:10 1997 +0000
@@ -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