From b72096a5b1b421a840b9dad32284d00ed7b4185a Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 12 Feb 2002 23:52:59 +0000 Subject: [PATCH] Delete some unused codes. --- src/chartab.c | 62 --------------------------------------------------------- 1 file changed, 62 deletions(-) diff --git a/src/chartab.c b/src/chartab.c index d827da1..999cae3 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3132,26 +3132,6 @@ Return DEFAULT-VALUE if the value is not exist. table = Fgethash (attribute, Vchar_attribute_hash_table, Qunbound); -#if 0 && defined(HAVE_DATABASE) - if (UNBOUNDP (table)) - { - Lisp_Object db_dir = Vexec_directory; - Lisp_Object db_file; - - if (NILP (db_dir)) - db_dir = build_string ("../lib-src"); - db_dir = Fexpand_file_name (build_string ("char-db"), db_dir); - db_dir = Fexpand_file_name (build_string ("system-char-id"), db_dir); - db_file = Fexpand_file_name (Fsymbol_name (attribute), db_dir); - if (!NILP (Ffile_exists_p (db_file))) - { - table = make_char_id_table (Qunloaded); - XCHAR_TABLE (table)->default_value = Qunbound; - Fputhash (attribute, table, Vchar_attribute_hash_table); - XCHAR_TABLE_NAME (table) = attribute; - } - } -#endif if (!UNBOUNDP (table)) { Lisp_Object ret = get_char_id_table (XCHAR_TABLE(table), @@ -3272,47 +3252,6 @@ Store CHARACTER's ATTRIBUTE with VALUE. Vchar_attribute_hash_table, Qnil); -#if defined(HAVE_DATABASE) && 0 - { - Lisp_Object db; - Lisp_Object db_dir = Vexec_directory; - Lisp_Object db_file; - - if (NILP (table)) - { - /* table = make_char_id_table (Qunbound); */ - table = make_char_id_table (Qunloaded); - XCHAR_TABLE (table)->default_value = Qunbound; - Fputhash (attribute, table, Vchar_attribute_hash_table); - XCHAR_TABLE_NAME (table) = attribute; - } - if (NILP (db_dir)) - db_dir = build_string ("../lib-src"); - - db_dir = Fexpand_file_name (build_string ("char-db"), db_dir); - if (NILP (Ffile_exists_p (db_dir))) - Fmake_directory_internal (db_dir); - - db_dir = Fexpand_file_name (build_string ("system-char-id"), db_dir); - if (NILP (Ffile_exists_p (db_dir))) - Fmake_directory_internal (db_dir); - - db_file = Fexpand_file_name (Fsymbol_name (attribute), db_dir); - db = Fopen_database (db_file, Qnil, Qnil, Qnil, Qnil); - if (!NILP (db)) - { - Fput_database (Fprin1_to_string (character, Qnil), - Fprin1_to_string (value, Qnil), - db, Qt); - /* put_char_id_table (XCHAR_TABLE(table), character, value); */ - put_char_id_table (XCHAR_TABLE(table), character, Qunloaded); - XCHAR_TABLE_UNLOADED(table) = 1; - Fclose_database (db); - } - else - put_char_id_table (XCHAR_TABLE(table), character, value); - } -#else if (NILP (table)) { table = make_char_id_table (Qunbound); @@ -3322,7 +3261,6 @@ Store CHARACTER's ATTRIBUTE with VALUE. #endif } put_char_id_table (XCHAR_TABLE(table), character, value); -#endif return value; } } -- 1.7.10.4