From: tomo <tomo>
Date: Fri, 14 May 2004 19:00:53 +0000 (+0000)
Subject: (Fput_char_attribute): When processing a reference of a character, put
X-Git-Tag: r21-4-14-chise-0_21-27^2~56
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=748372f4d4b311ae380307d5b0590c2d253ac0f9;p=chise%2Fxemacs-chise.git-

(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
--- 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);