*** empty log message ***

diff --git a/src/ChangeLog.22 b/src/ChangeLog.22
index 3b1585867a680db9236fa29ff94883295a45b276..468a9708cd3e0b46d81704db1275c39eed06e59f 100644 (file)
--- a/src/ChangeLog.22
+++ b/src/ChangeLog.22
@@ -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 --git a/src/print.c b/src/print.c
index 229004f7a575cafc814f4be9a9fe7f51337878ca..488d7aa5b78ad698d6c66dfab5fee7e0680ee815 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2256,7 +2256,7 @@ If the value is t, always print the text property `charset'.
 
 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 */