From 6a8b9ce429d04f7c312d69cff9635e726d249f89 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 22 Jan 2004 00:19:59 +0000 Subject: [PATCH] (ccl-encode-windows-1251-font): Rearrange code point (register r0) only for charset mule-unicode-0100-24ff. --- lisp/ChangeLog | 5 +++++ lisp/language/cyrillic.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1fd65e5d3cd..0073e5143ab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-01-22 Kenichi Handa + + * 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 * mail/rmail.el (rmail-convert-to-babyl-format): Avoid deleting diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 60ebf52fe35..dc05f24698a 100644 --- 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)) -- 2.39.2