(ccl-encode-windows-1251-font): Rearrange

code point (register r0) only for charset mule-unicode-0100-24ff.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fd65e5d3cd47eb3c029242482c53e3103341b93..0073e5143abe9bc27364bf13010bd54c2f5f07c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-22  Kenichi Handa  <handa@m17n.org>
+
+       * language/cyrillic.el (ccl-encode-windows-1251-font): Rearrange
+       code point (register r1) only for charset mule-unicode-0100-24ff.
+
 2004-01-21  Markus Rost  <rost@mathematik.uni-bielefeld.de>
 
        * mail/rmail.el (rmail-convert-to-babyl-format): Avoid deleting

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 60ebf52fe35bc871751f11bdd4c736c25db983c2..dc05f24698ab2e1fdbfda74aec1f529570f81a5b 100644 (file)
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -476,11 +476,11 @@ Support for Russian using koi8-r and the russian-computer input method.")
     (push elt ctext-non-standard-encodings-alist)))
 
 (define-ccl-program ccl-encode-windows-1251-font
-  '(0
-    ((r1 <<= 7)
-     (r1 += r2)
-     (translate-character encode-windows-1251 r0 r1)
-     )))
+  `(0
+    ((if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
+        ((r1 <<= 7)
+         (r1 += r2)))
+     (translate-character encode-windows-1251 r0 r1))))
 
 (add-to-list 'font-ccl-encoder-alist
             '("microsoft-cp1251" . ccl-encode-windows-1251-font))