From 0b1f3a443ebbb1ed795735cacdc8510961df5fae Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 17 Jul 2004 17:57:48 +0000
Subject: [PATCH] (save_charset_properties): Renamed from
 `Fsave_charset_properties'; changed to non-Lisp function.
 (syms_of_mule_charset): Abolish builtin function
 `save-charset-properties'.

---
 src/mule-charset.c |   10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 6af8460..de6b946 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -2365,10 +2365,9 @@ load_char_decoding_entry_maybe (Lisp_Object ccs, int code_point)
 }
 
 #ifdef HAVE_LIBCHISE
-DEFUN ("save-charset-properties", Fsave_charset_properties, 1, 1, 0, /*
-Save properties of CHARSET.
-*/
-       (charset))
+Lisp_Object save_charset_properties (Lisp_Object charset);
+Lisp_Object
+save_charset_properties (Lisp_Object charset)
 {
   struct Lisp_Charset *cs;
   CHISE_Property property;
@@ -2754,9 +2753,6 @@ syms_of_mule_charset (void)
   DEFSUBR (Fset_charset_mapping_table);
 #ifdef HAVE_CHISE
   DEFSUBR (Fsave_charset_mapping_table);
-#ifdef HAVE_LIBCHISE
-  DEFSUBR (Fsave_charset_properties);
-#endif /* HAVE_LIBCHISE */
   DEFSUBR (Freset_charset_mapping_table);
 #endif /* HAVE_CHISE */
   DEFSUBR (Fdecode_char);
-- 
1.7.10.4