From: Kenichi Handa <handa@m17n.org>
Date: Sat, 8 Nov 1997 03:08:10 +0000 (+0000)
Subject: (ccl-encode-koi8-font): Fix bug of CCL
X-Git-Tag: emacs-20.3~2840
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6965ddb68510874119aa444a21f9b08946283d0;p=emacs.git

(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 95a5efe5e0a..cad3a53f8e9 100644
--- 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