view lisp/gnus/post.xpm @ 89717:2e9328140e82

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.

/* XPM */
static char *magick[] = {
/* columns rows colors chars-per-pixel */
"24 24 23 1",
"  c Gray0",
". c Gray6",
"X c Gray12",
"o c #2ff22ff22ff2",
"O c #3fff3fff3fff",
"+ c Gray28",
"@ c #53ee53ee53ee",
"# c #5fdf5fdf5fdf",
"$ c #67e767e767e7",
"% c #6fff6fff6fff",
"& c #77f777f777f7",
"* c #7bdb7bdb7bdb",
"= c Gray50",
"- c Gray56",
"; c #9bd69bd69bd6",
": c #9fff9fff9fff",
"> c #a7c7a7c7a7c7",
", c Gray70",
"< c Gray75",
"1 c Gray81",
"2 c #dfffdfffdfff",
"3 c #efffefffefff",
"4 c Gray100",
/* pixels */
",><,><,><,><,><,><,><,><",
">-<>-<>-<>-<>-<>-<>-<>-<",
"<<<<<<<<<<<<<<<<<<<<<<<<",
",><,><,><,>;*O.,><,><,><",
">-<>-<>-<-o&:4O#-<>-<>-<",
"<<<<<<<<@@<31O:o<<<<<<<<",
",><,>;*O1444 X1@><,><,><",
">-<-o&:4444:=<4<#<>-<>-<",
"<<<,+<4444414443&;<<<<<<",
",><,#;4444444444:*,><,><",
">-<>-o44444444444O>-<>-<",
"<<<<<;%44444444441@<<<<<",
",><,><@24444444444@><,><",
">-<>-<-=4444444444<#<>-<",
"<<<<<<,$14444444443&;<<<",
",><,><,#;4444444444:*,><",
">-<>-<>-o4444444444<X>-<",
"<<<<<<<<;%4444444%O$-<<<",
",><,><,><@24444<&;,><,><",
">-<>-<>-<-=42==#-<>-<>-<",
"<<<<<<<<<,$Oo+-<<<<<<<<<",
",><,><,><,><,><,><,><,><",
">-<>-<>-<>-<>-<>-<>-<>-<",
"<<<<<<<<<<<<<<<<<<<<<<<<"
};