X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.c;h=b8984ea70599afd1a42dc6a59bd1175c85500acc;hb=483d3fdb6be43da350fee11caec0dbf97a75137b;hp=79490126c4d2f78effa4dd82bfea72b29bbf2fcb;hpb=e27fd755102faad3f66c58ce3243d8619c7f51a1;p=chise%2Fxemacs-chise.git.1

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;