view lisp/gnus/uu-decode.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 18 1",
"  c #2fef2fef2fef",
". c #3fff3fff3fff",
"X c #4ccc4ccc4ccc",
"o c #53e353e353e3",
"O c #566656665666",
"+ c #5fe35fe35fe3",
"@ c Gray45",
"# c #77d777d777d7",
"$ c Gray50",
"% c #866586658665",
"& c Gray56",
"* c Gray60",
"= c #9fff9fff9fff",
"- c Gray75",
"; c Gray81",
": c #dfffdfffdfff",
"> c #efffefffefff",
", c Gray100",
/* pixels */
"------------------------",
"------------------------",
"------------------------",
"------------------------",
"-----#+++++++++++++&----",
"----- @@@@@@@@@@@@O+----",
"----- *%@@@@@@@@@&@+----",
"----- *X+$$$$$$$.@@+----",
"----- *X-,,,,,,,$@@+----",
"----- *X-,,;,,,,$@@+----",
"----- *X-:$$$-=,$@@+----",
"----- *X-+-+-$=,$@@+----",
"----- *X->$;;,,,$@@+----",
"----- *X--.$.,,,$@@+----",
"----- *X->--==,,$@@+----",
"----- *X-,,,,=;,$@@+----",
"----- *X-,,,,,,,$@@+----",
"----- *X-,,,,,,,$@@+----",
"----- *X&-------+@@+----",
"----- *@XXXXXXXXX%@+----",
"----- ************@+----",
"-----o             #----",
"------------------------",
"------------------------"
};