From: Kenichi Handa Date: Sun, 18 Jan 2004 23:30:38 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: emacs-pretest-23.0.90~8295^2~1630 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dedbd91c488d0b05e004b2b782a264a0bd131b79;p=emacs.git *** empty log message *** --- diff --git a/src/ChangeLog.22 b/src/ChangeLog.22 index 3b1585867a6..468a9708cd3 100644 --- a/src/ChangeLog.22 +++ b/src/ChangeLog.22 @@ -1,3 +1,20 @@ +2004-01-18 Kenichi Handa + + * 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 * fontset.c (new_fontset_from_font_name): Use the specified font diff --git a/src/print.c b/src/print.c index 229004f7a57..488d7aa5b78 100644 --- 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 */