From 748372f4d4b311ae380307d5b0590c2d253ac0f9 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 14 May 2004 19:00:53 +0000 Subject: [PATCH] (Fput_char_attribute): When processing a reference of a character, put into the end of the reversed reference of each target character. --- src/chartab.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/chartab.c b/src/chartab.c index 81d2105..564d77e 100644 --- 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); -- 1.7.10.4