(Fput_char_attribute): Use `Fchar_refs_simplify_char_specs' for

`=>decomposition' before calling `put_char_composition'.

diff --git a/src/chartab.c b/src/chartab.c
index 67c7d92..2a134e1 100644 (file)
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3530,6 +3530,7 @@ Store CHARACTER's ATTRIBUTE with VALUE.
   else if ( EQ (attribute, Qmap_decomposition) ||
            EQ (attribute, Q_decomposition) )
     {
+      value = Fcopy_sequence (Fchar_refs_simplify_char_specs (value));
       attribute = put_char_composition (character, value);
       if ( !EQ (attribute, Qmap_decomposition) &&
           SYMBOLP (XCAR (value)) )