From a80d46e9fea61d55a8e6f2a6383e48186806f117 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 29 Jan 2002 17:32:11 +0000
Subject: [PATCH] (Fput_char_attribute): Use S-expression as key of external
 database.

---
 src/chartab.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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); */
-- 
1.7.10.4