From: tomo <tomo>
Date: Tue, 29 Jan 2002 17:31:23 +0000 (+0000)
Subject: (get_char_id_table): Use S-expression as key of external database.
X-Git-Tag: r21-2-44-lazy-3~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=20a6a1c3066a1be29a7476eda94e6b080f9a1838;p=chise%2Fxemacs-chise.git-

(get_char_id_table): Use S-expression as key of external database.
---

diff --git a/src/chartab.h b/src/chartab.h
index 1d5bb4c..3091a26 100644
--- a/src/chartab.h
+++ b/src/chartab.h
@@ -1,7 +1,7 @@
 /* Declarations having to do with Mule char tables.
    Copyright (C) 1992 Free Software Foundation, Inc.
    Copyright (C) 1995 Sun Microsystems, Inc.
-   Copyright (C) 1999,2000,2001 MORIOKA Tomohiko
+   Copyright (C) 1999,2000,2001,2002 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -369,7 +369,7 @@ get_char_id_table (Lisp_Char_Table* cit, Emchar ch)
 	  db = Fopen_database (db_file, Qnil, Qnil, Qnil, Qnil);
 	  if (!NILP (db))
 	    {
-	      val = Fget_database (Fchar_to_string (make_char (ch)),
+	      val = Fget_database (Fprin1_to_string (make_char (ch), Qnil),
 				   db, Qunbound);
 	      if (!UNBOUNDP (val))
 		val = Fread (val);