(Fput_char_attribute): Convert char-specs in value of

`{<-|->}{fullwidth|halfwidth}[^*]*' to characters and put reverse
links.

diff --git a/src/chartab.c b/src/chartab.c
index 02ef2df..15acf41 100644 (file)
--- 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)) )