From: tomo <tomo>
Date: Sat, 17 Jul 2004 18:07:56 +0000 (+0000)
Subject: (Fsave_char_attribute_table): Use `save_charset_properties' for CCS
X-Git-Tag: r21-4-15-chise-0_21-30-ccs-props^2~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=da6d8669637d3c52deb282a55a5d0fb58d5e4e14;p=chise%2Fxemacs-chise.git

(Fsave_char_attribute_table): Use `save_charset_properties' for CCS
features when HAVE_LIBCHISE is defined.
---

diff --git a/src/chartab.c b/src/chartab.c
index 65000a0..d22b611 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3789,6 +3789,10 @@ char_attribute_system_db_file (Lisp_Object key_type, Lisp_Object attribute,
 }
 #endif /* not HAVE_LIBCHISE */
 
+#ifdef HAVE_LIBCHISE
+Lisp_Object save_charset_properties (Lisp_Object charset);
+#endif /* HAVE_LIBCHISE */
+
 DEFUN ("save-char-attribute-table", Fsave_char_attribute_table, 1, 1, 0, /*
 Save values of ATTRIBUTE into database file.
 */
@@ -3829,7 +3833,14 @@ Save values of ATTRIBUTE into database file.
     {
       Lisp_Object (*filter)(Lisp_Object value);
 
-      if ( EQ (attribute, Qideographic_structure)
+      if ( !NILP (Ffind_charset (attribute)) )
+	{
+#ifdef HAVE_LIBCHISE
+	  save_charset_properties (attribute);
+#endif /* HAVE_LIBCHISE */
+	  filter = NULL;
+	}
+      else if ( EQ (attribute, Qideographic_structure)
 	   || EQ (attribute, Q_identical)
 	   || EQ (attribute, Q_identical_from)
 	   || !NILP (Fstring_match