From: tomo <tomo>
Date: Wed, 15 Oct 2003 10:11:21 +0000 (+0000)
Subject: EXFUN `Fmount_char_attribute_table'.
X-Git-Tag: r21-4-12-chise-0_21-pre9-for-libchise-b1~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=799c72ba2bb4e7ef94b77b50a443e74cc13227bc;p=chise%2Fxemacs-chise.git

EXFUN `Fmount_char_attribute_table'.
(print_chartab_range): Don't define when `UTF2000' is defined.
(open_chise_data_source_maybe): Specify 0 instead of DB_HASH for
`CHISE_DS_open'.
---

diff --git a/src/chartab.c b/src/chartab.c
index 90eb96f..1430fb1 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -76,6 +76,10 @@ extern Lisp_Object Qideographic_structure;
 
 EXFUN (Fmap_char_attribute, 3);
 
+#ifdef HAVE_LIBCHISE
+EXFUN (Fmount_char_attribute_table, 1);
+#endif
+
 #ifdef HAVE_CHISE
 EXFUN (Fload_char_attribute_table, 1);
 
@@ -1406,6 +1410,7 @@ symbol_to_char_table_type (Lisp_Object symbol)
   return CHAR_TABLE_TYPE_GENERIC; /* not reached */
 }
 
+#ifndef UTF2000
 static void
 print_chartab_range (Emchar first, Emchar last, Lisp_Object val,
 		     Lisp_Object printcharfun)
@@ -1426,6 +1431,7 @@ print_chartab_range (Emchar first, Emchar last, Lisp_Object val,
     }
   print_internal (val, printcharfun, 1);
 }
+#endif
 
 #if defined(MULE)&&!defined(UTF2000)
 
@@ -3432,7 +3438,7 @@ open_chise_data_source_maybe ()
 
       default_chise_data_source
 	= CHISE_DS_open (CHISE_DS_Berkeley_DB, XSTRING_DATA (db_dir),
-			 DB_HASH, modemask);
+			 0 /* DB_HASH */, modemask);
       if (default_chise_data_source == NULL)
 	return -1;
     }