From 4a1ee83f89f8b33c4153b24dde386f5ef4762813 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 7 Oct 2003 07:49:34 +0000 Subject: [PATCH] (Qsystem_char_id): Don't define when HAVE_CHISE is not defined or HAVE_LIBCHISE_LIBCHISE is defined. (char_attribute_system_db_file): Don't define when HAVE_LIBCHISE is defined. (Freset_char_attribute_table): Use HAVE_LIBCHISE instead of HAVE_CHISE to specify using with libchise. (syms_of_chartab): Don't define symbol `system-char-id' when HAVE_CHISE is not defined or HAVE_LIBCHISE_LIBCHISE is defined. --- src/chartab.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/chartab.c b/src/chartab.c index 81b2a01..7b1553b 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -1120,7 +1120,9 @@ 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; @@ -3500,6 +3502,7 @@ char_table_get_db (Lisp_Char_Table* cit, Emchar ch) return val; } +#ifndef HAVE_LIBCHISE Lisp_Object char_attribute_system_db_file (Lisp_Object key_type, Lisp_Object attribute, int writing_mode) @@ -3547,10 +3550,8 @@ char_attribute_system_db_file (Lisp_Object key_type, Lisp_Object attribute, UNGCPRO; return Fexpand_file_name (dest, db_dir); } -#if 0 - return Fexpand_file_name (Fsymbol_name (attribute), db_dir); -#endif } +#endif /* not HAVE_LIBCHISE */ DEFUN ("save-char-attribute-table", Fsave_char_attribute_table, 1, 1, 0, /* Save values of ATTRIBUTE into database file. @@ -3680,7 +3681,7 @@ Reset values of ATTRIBUTE with database file. */ (attribute)) { -#ifdef HAVE_CHISE +#ifdef HAVE_LIBCHISE CHISE_Feature feature = chise_ds_get_feature (default_chise_data_source, XSTRING_DATA (Fsymbol_name @@ -4330,7 +4331,9 @@ syms_of_chartab (void) INIT_LRECORD_IMPLEMENTATION (uint16_byte_table); INIT_LRECORD_IMPLEMENTATION (byte_table); +#if defined(HAVE_CHISE) && !defined(HAVE_LIBCHISE_LIBCHISE) defsymbol (&Qsystem_char_id, "system-char-id"); +#endif defsymbol (&Qto_ucs, "=>ucs"); defsymbol (&Q_ucs_unified, "->ucs-unified"); -- 1.7.10.4