From 483d3fdb6be43da350fee11caec0dbf97a75137b Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 5 May 2004 15:04:45 +0000 Subject: [PATCH] (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[^*]*'. --- src/chartab.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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; -- 1.7.10.4