Commit 6a8b9ce4 authored by Kenichi Handa's avatar Kenichi Handa

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

code point (register r0) only for charset mule-unicode-0100-24ff.
parent d92f48d3
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> 2004-01-21 Markus Rost <rost@mathematik.uni-bielefeld.de>
* mail/rmail.el (rmail-convert-to-babyl-format): Avoid deleting * mail/rmail.el (rmail-convert-to-babyl-format): Avoid deleting
......
...@@ -476,11 +476,11 @@ Support for Russian using koi8-r and the russian-computer input method.") ...@@ -476,11 +476,11 @@ Support for Russian using koi8-r and the russian-computer input method.")
(push elt ctext-non-standard-encodings-alist))) (push elt ctext-non-standard-encodings-alist)))
(define-ccl-program ccl-encode-windows-1251-font (define-ccl-program ccl-encode-windows-1251-font
'(0 `(0
((r1 <<= 7) ((if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
(r1 += r2) ((r1 <<= 7)
(translate-character encode-windows-1251 r0 r1) (r1 += r2)))
))) (translate-character encode-windows-1251 r0 r1))))
(add-to-list 'font-ccl-encoder-alist (add-to-list 'font-ccl-encoder-alist
'("microsoft-cp1251" . ccl-encode-windows-1251-font)) '("microsoft-cp1251" . ccl-encode-windows-1251-font))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment