From 3f6bf48efef4188d859f2f6fb916ae592544825b Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 31 Jul 2005 12:21:08 +0000 Subject: [PATCH] (put_char_composition): Return `=>decomposition@FOO' for compatibility decomposition mapping tagged FOO. (Fput_char_attribute): Modify for `put_char_composition'. --- src/chartab.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/src/chartab.c b/src/chartab.c index f68ccba..94dcb88 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3433,6 +3433,12 @@ put_char_composition (Lisp_Object character, Lisp_Object value) } else if (EQ (XCAR (value), Qcompat)) return Qto_decomposition_at_compat; + else + return + Fintern + (concat2 (build_string ("=>decomposition@"), + symbol_name (XSYMBOL (XCAR (value)))), + Qnil); } else { @@ -3501,8 +3507,12 @@ Store CHARACTER's ATTRIBUTE with VALUE. EQ (attribute, Q_decomposition) ) { attribute = put_char_composition (character, value); - if ( EQ (attribute, Q_compat_of) || - EQ (attribute, Qto_decomposition_at_compat) ) + if ( /* + EQ (attribute, Q_compat_of) || + EQ (attribute, Qto_decomposition_at_compat) + */ + /* SYMBOLP (XCAR (value)) */ + !EQ (attribute, Qmap_decomposition) ) value = XCDR (value); } else if (EQ (attribute, Qto_ucs)) -- 1.7.10.4