Mercurial > emacs

changeset 53672:e349592390bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ccl-encode-windows-1251-font): Rearrange code point (register r0) only for charset mule-unicode-0100-24ff.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 2004 00:17:18 +0000
parents 12f934857d1b
children 17d170b14abf
files lisp/language/cyrillic.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Wed Jan 21 20:19:41 2004 +0000
+++ b/lisp/language/cyrillic.el	Thu Jan 22 00:17:18 2004 +0000
@@ -476,11 +476,11 @@
     (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))