# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1074468638 0
# Node ID 75a2373c03ccb465ec3c1ee5bb8b31891b6af2ff
# Parent  2e9328140e824f98fcc80fec5f7e1bf3f58f1368
*** empty log message ***

diff -r 2e9328140e82 -r 75a2373c03cc src/ChangeLog.22
--- a/src/ChangeLog.22	Sun Jan 18 23:27:07 2004 +0000
+++ b/src/ChangeLog.22	Sun Jan 18 23:30:38 2004 +0000
@@ -1,3 +1,20 @@
+2004-01-18  Kenichi Handa  <handa@m17n.org>
+
+	* print.c: Include charset.h.
+	(Vprint_charset_text_property): New variable.
+	(Qdefault): Extern it.
+	(PRINT_STRING_NON_CHARSET_FOUND)
+	(PRINT_STRING_UNSAFE_CHARSET_FOUND): New macros.
+	(print_check_string_result): New variable.
+	(print_check_string_charset_prop): New function.
+	(print_prune_charset_plist): New variable.
+	(print_prune_string_charset): New function.
+	(print_object): Call print_prune_string_charset if
+	Vprint_charset_text_property is not t.
+	(print_interval): Print nothing if itnerval->plist is nil.
+	(syms_of_print): Declare Vprint_charset_text_property as a lisp
+	variable.  Init and staticpro print_prune_charset_plist.
+
 2004-01-15  Kenichi Handa  <handa@m17n.org>
 
 	* fontset.c (new_fontset_from_font_name): Use the specified font
diff -r 2e9328140e82 -r 75a2373c03cc src/print.c
--- a/src/print.c	Sun Jan 18 23:27:07 2004 +0000
+++ b/src/print.c	Sun Jan 18 23:30:38 2004 +0000
@@ -2256,7 +2256,7 @@
 
 If the value is `default', print the text property `charset' only when
 the value is different from what is guessed in the current charset
- priorities.  */);
+priorities.  */);
   Vprint_charset_text_property = Qdefault;
 
   /* prin1_to_string_buffer initialized in init_buffer_once in buffer.c */