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

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

diff --git a/src/chartab.c b/src/chartab.c
index 5b396ab..44b3992 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3087,7 +3087,7 @@ Store CHARACTER's ATTRIBUTE with VALUE.
       db = Fopen_database (db_file, Qnil, Qnil, Qnil, Qnil);
       if (!NILP (db))
 	{
-	  Fput_database (Fchar_to_string (character),
+	  Fput_database (Fprin1_to_string (character, Qnil),
 			 Fprin1_to_string (value, Qnil),
 			 db, Qt);
 	  /* put_char_id_table (XCHAR_TABLE(table), character, value); */