(Fput_char_attribute): Convert char-specs in value of

`{<-|->}ancient[^*]*' to characters and put reverse links.
(Fsave_char_attribute_table): Use `Fchar_refs_simplify_char_specs' for
`{<-|->}ancient[^*]*'.

diff --git a/src/chartab.c b/src/chartab.c
index 7746288..65000a0 100644 (file)
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3511,7 +3511,7 @@ Store CHARACTER's ATTRIBUTE with VALUE.
            !NILP (Fstring_match
                   (build_string ("^\\(<-\\|->\\)\\(simplified"
                                  "\\|same\\|vulgar\\|wrong"
-                                 "\\|original"
+                                 "\\|original\\|ancient"
                                  "\\)[^*]*$"),
                    Fsymbol_name (attribute),
                    Qnil, Qnil)) )
@@ -3835,7 +3835,7 @@ Save values of ATTRIBUTE into database file.
           || !NILP (Fstring_match
                     (build_string ("^\\(<-\\|->\\)\\(simplified"
                                    "\\|same\\|vulgar\\|wrong"
-                                   "\\|original"
+                                   "\\|original\\|ancient"
                                    "\\)[^*]*$"),
                      Fsymbol_name (attribute),
                      Qnil, Qnil)) )