From: tomo <tomo>
Date: Sat, 17 Jul 2004 17:57:48 +0000 (+0000)
Subject: (save_charset_properties): Renamed from `Fsave_charset_properties';
X-Git-Tag: r21-4-15-chise-0_21-30-ccs-props^2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b1f3a443ebbb1ed795735cacdc8510961df5fae;p=chise%2Fxemacs-chise.git-

(save_charset_properties): Renamed from `Fsave_charset_properties';
changed to non-Lisp function.
(syms_of_mule_charset): Abolish builtin function
`save-charset-properties'.
---

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);