From 27d956d0eb66388b5ba8c31e1764c625fdd36b7b Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 16 Nov 2010 04:09:48 +0000 Subject: [PATCH] (Fconcord_genre_ds): Use Vchise_system_db_directory as the default location of data-source. (complex_vars_of_concord): Use Vchise_system_db_directory to assign genre `character' and `feature'. --- src/concord.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/concord.c b/src/concord.c index e368006..fff4b5c 100644 --- a/src/concord.c +++ b/src/concord.c @@ -264,6 +264,8 @@ Return concord-ds of GENRE. CHECK_SYMBOL (genre); retval = Fgethash (genre, Vconcord_genre_hash_table, Qunbound); + if ( UNBOUNDP (retval) ) + retval = Vchise_system_db_directory; if ( STRINGP (retval) ) { retval = Fconcord_open_ds (retval, Qnil, Qnil, Qnil); @@ -1171,9 +1173,7 @@ void complex_vars_of_concord (void) { #ifdef HAVE_LIBCHISE - Lisp_Object dir = build_string(chise_system_db_dir); - - Fconcord_assign_genre (Qcharacter, dir); - Fconcord_assign_genre (Qfeature, dir); + Fconcord_assign_genre (Qcharacter, Vchise_system_db_directory); + Fconcord_assign_genre (Qfeature, Vchise_system_db_directory); #endif } -- 1.7.10.4