From: tomo <tomo>
Date: Wed, 14 Sep 2005 17:31:53 +0000 (+0000)
Subject: (Fput_char_attribute): For each character relation feature
X-Git-Tag: r21-4-17-chise-0_22-4^20~130
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5a764219cd2ec4166da70eca79bf747928aaa37;p=chise%2Fxemacs-chise.git

(Fput_char_attribute): For each character relation feature
`{<-|->}FOO', set up the reversed link `{->|<-}FOO'.
---

diff --git a/src/chartab.c b/src/chartab.c
index 2a134e1..b05f7d7 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3568,17 +3568,13 @@ Store CHARACTER's ATTRIBUTE with VALUE.
        EQ (attribute, Q_circled_of)		||
        EQ (attribute, Q_component)		||
        EQ (attribute, Q_component_of)		||
-       !NILP (Fstring_match
-	      (build_string ("^\\(<-\\|->\\)\\("
-			     "canonical"
-			     "\\|halfwidth\\|superscript\\|subscript"
-			     "\\|circled\\|font\\|compat"
-			     "\\|fullwidth\\|halfwidth"
-			     "\\|simplified\\|vulgar\\|wrong"
-			     "\\|same\\|original\\|ancient"
-			     "\\|Oracle-Bones\\)[^*]*$"),
-	       Fsymbol_name (attribute),
-	       Qnil, Qnil)) )
+       ( !EQ (attribute, Q_ucs_unified)
+	 && !NILP (Fstring_match
+		   (build_string ("^\\(<-\\|->\\)[^*]*$"),
+		    Fsymbol_name (attribute),
+		    Qnil, Qnil))
+	 )
+       )
     {
       Lisp_Object rest = value;
       Lisp_Object ret;