(Fput_char_attribute): When processing a reference of a character, put

into the end of the reversed reference of each target character.

diff --git a/src/chartab.c b/src/chartab.c
index 81d2105..564d77e 100644 (file)
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3583,8 +3583,9 @@ Store CHARACTER's ATTRIBUTE with VALUE.
              if (!CONSP (ffv))
                put_char_attribute (ret, rev_feature, list1 (character));
              else if (NILP (Fmemq (character, ffv)))
-               put_char_attribute (ret, rev_feature,
-                                   Fcons (character, ffv));
+               put_char_attribute
+                 (ret, rev_feature,
+                  nconc2 (Fcopy_sequence (ffv), list1 (character)));
              Fsetcar (rest, ret);
            }
          rest = XCDR (rest);