diff options
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)) |