(Fput_char_attribute): Convert char-specs in value of

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

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