From da6d8669637d3c52deb282a55a5d0fb58d5e4e14 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 17 Jul 2004 18:07:56 +0000
Subject: [PATCH] (Fsave_char_attribute_table): Use `save_charset_properties'
 for CCS features when HAVE_LIBCHISE is defined.

---
 src/chartab.c |   13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4