From 8c8e871d9bb105b7b2c9eab976e088f2b3e8e21c Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Oct 2004 13:51:28 +0000 Subject: [PATCH] (Fput_char_attribute): Convert char-specs in value of `{<-|->}{fullwidth|halfwidth}[^*]*' to characters and put reverse links. --- src/chartab.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/chartab.c b/src/chartab.c index 02ef2df..15acf41 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3508,9 +3508,10 @@ Store CHARACTER's ATTRIBUTE with VALUE. EQ (attribute, Q_component) || EQ (attribute, Q_component_of) || !NILP (Fstring_match - (build_string ("^\\(<-\\|->\\)\\(simplified" - "\\|same\\|vulgar\\|wrong" - "\\|original\\|ancient" + (build_string ("^\\(<-\\|->\\)\\(" + "fullwidth\\|halfwidth" + "\\|simplified\\|vulgar\\|wrong" + "\\|same\\|original\\|ancient" "\\)[^*]*$"), Fsymbol_name (attribute), Qnil, Qnil)) ) -- 1.7.10.4