From: tomo <tomo>
Date: Wed, 5 May 2004 15:04:45 +0000 (+0000)
Subject: (Fput_char_attribute): Convert char-refs in value of
X-Git-Tag: r21-4-14-chise-0_21-27^2~122
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=483d3fdb6be43da350fee11caec0dbf97a75137b;p=chise%2Fxemacs-chise.git

(Fput_char_attribute): Convert char-refs in value of
`{<-|->}wrong[^*]*' to characters and put reverse links.
(Fsave_char_attribute_table): Use `Fchar_refs_simplify_char_specs' for
`{<-|->}wrong[^*]*'.
---

diff --git a/src/chartab.c b/src/chartab.c
index 7949012..b8984ea 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3520,9 +3520,11 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	    EQ (attribute, Q_same_of) ||
 	    EQ (attribute, Q_vulgar) ||
 	    EQ (attribute, Q_vulgar_of) ||
-	    !NILP (Fstring_match (build_string ("^<-simplified[^*]*$"),
-				  Fsymbol_name (attribute),
-				  Qnil, Qnil)) )
+	    !NILP (Fstring_match
+		   (build_string ("^<-\\(simplified"
+				  "\\|wrong\\)[^*]*$"),
+		    Fsymbol_name (attribute),
+		    Qnil, Qnil)) )
     {
       Lisp_Object rest = value;
       Lisp_Object ret;
@@ -3841,7 +3843,8 @@ Save values of ATTRIBUTE into database file.
 	   || EQ (attribute, Q_same)
 	   || EQ (attribute, Q_same_of)
 	   || !NILP (Fstring_match
-		     (build_string ("^\\(<-\\|->\\)simplified[^*]*$"),
+		     (build_string ("^\\(<-\\|->\\)\\("
+				    "simplified\\|wrong\\)[^*]*$"),
 		      Fsymbol_name (attribute),
 		      Qnil, Qnil)) )
 	filter = &Fchar_refs_simplify_char_specs;