From: 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;