diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-01-22 00:19:59 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-01-22 00:19:59 +0000 |
| commit | 6a8b9ce429d04f7c312d69cff9635e726d249f89 (patch) | |
| tree | cb8edf57f9fe80f74aff70a2f36b80641d9b4ad8 | |
| parent | d92f48d3ab09a639f7c2244d54187846899e803e (diff) | |
| download | emacs-6a8b9ce429d04f7c312d69cff9635e726d249f89.tar.gz | |
(ccl-encode-windows-1251-font): Rearrange
code point (register r0) only for charset mule-unicode-0100-24ff.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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)) |