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 /lisp/language | |
| 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.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/cyrillic.el | 10 |
1 files changed, 5 insertions, 5 deletions
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)) |