(Fput_char_attribute): Convert char-specs in value of
authortomo <tomo>
Fri, 15 Oct 2004 13:51:28 +0000 (13:51 +0000)
committertomo <tomo>
Fri, 15 Oct 2004 13:51:28 +0000 (13:51 +0000)
`{<-|->}{fullwidth|halfwidth}[^*]*' to characters and put reverse
links.

src/chartab.c

index 02ef2df..15acf41 100644 (file)
@@ -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)) )