(Fsave_charset_properties): New function when HAVE_LIBCHISE is defined.

[chise/xemacs-chise.git.1] / src / chartab.c

diff --git a/src/chartab.c b/src/chartab.c
index 564d77e..65000a0 100644 (file)
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -1130,10 +1130,6 @@ make_char_id_table (Lisp_Object initval)
 }
 
 
-#if defined(HAVE_CHISE) && !defined(HAVE_LIBCHISE_LIBCHISE)
-Lisp_Object Qsystem_char_id;
-#endif
-
 Lisp_Object Qcomposition;
 Lisp_Object Q_decomposition;
 Lisp_Object Q_identical;
@@ -3515,6 +3511,7 @@ Store CHARACTER's ATTRIBUTE with VALUE.
            !NILP (Fstring_match
                   (build_string ("^\\(<-\\|->\\)\\(simplified"
                                  "\\|same\\|vulgar\\|wrong"
+                                 "\\|original\\|ancient"
                                  "\\)[^*]*$"),
                    Fsymbol_name (attribute),
                    Qnil, Qnil)) )
@@ -3838,6 +3835,7 @@ Save values of ATTRIBUTE into database file.
           || !NILP (Fstring_match
                     (build_string ("^\\(<-\\|->\\)\\(simplified"
                                    "\\|same\\|vulgar\\|wrong"
+                                   "\\|original\\|ancient"
                                    "\\)[^*]*$"),
                      Fsymbol_name (attribute),
                      Qnil, Qnil)) )