From d672aa78d8c646e18baec0181a4504be949cb522 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 30 Jul 2004 13:00:41 +0000 Subject: [PATCH] (put_char_composition): Use DECODE_CHAR to get character corresponding with UCS code point. (Fput_char_attribute): Likewise. --- src/chartab.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/chartab.c b/src/chartab.c index d955a1a..5eae4bd 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3426,7 +3426,7 @@ put_char_composition (Lisp_Object character, Lisp_Object value) if (INTP (v)) { - Emchar c = XINT (v); + Emchar c = DECODE_CHAR (Vcharset_ucs, XINT (v), 0); Lisp_Object ret = Fchar_feature (make_char (c), Q_ucs_unified, Qnil, Qnil, Qnil); @@ -3489,7 +3489,7 @@ Store CHARACTER's ATTRIBUTE with VALUE. if (!INTP (value)) signal_simple_error ("Invalid value for =>ucs", value); - c = XINT (value); + c = DECODE_CHAR (Vcharset_ucs, XINT (value), 0); ret = Fchar_feature (make_char (c), Q_ucs_unified, Qnil, Qnil, Qnil); -- 1.7.10.4