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