view lisp/gnus/unsubscribe.xpm @ 89732:8acde12aba89

(get_translation_table): New function. (translate_chars): Fix the bug of skipping annotation data. (decode_coding): Utilze get_translation_table. (encode_coding): Likewise. (char_encodable_p): Translate char if necessary. (Funencodable_char_position): Likewise. (Ffind_coding_systems_region_internal): Setup translation table for encode in a coding system attribute vector in advance. (Fcheck_coding_systems_region): Likewise. (Fdefine_coding_system_internal): Allow a symbol as translation table. For shift-jis type coding system, allow 4th charset.

/* XPM */
static char *magick[] = {
/* columns rows colors chars-per-pixel */
"24 24 18 1",
"  c Gray6",
". c Gray12",
"X c #2ff42ff42ff4",
"o c #3fff3fff3fff",
"O c Gray28",
"+ c #53e353e353e3",
"@ c #5fe55fe55fe5",
"# c #67e767e767e7",
"$ c #77d777d777d7",
"% c Gray50",
"& c Gray56",
"* c #9fff9fff9fff",
"= c Gray70",
"- c Gray75",
"; c Gray81",
": c #dfffdfffdfff",
"> c #efffefffefff",
", c Gray100",
/* pixels */
"------------------------",
"------------------------",
"------------------------",
"----@Xooooo oooXO=------",
"----@-,,,:-o,,,-o#------",
"----@-,,,@:o,,,-%;+-----",
"----@-;%@,,o,,,;ooX@----",
"----@@%o@%%.,,,,,,-@----",
"----@&-----X,,,,,,-@----",
"----@-,,,**o,,,,,,-@----",
"----@-:-**,o,,,,,,-@----",
"----@->%*,,o,,,,,,-@----",
"----@Xooooo ,,,,,,-@----",
"----@-,,,:-o,,,,,,-@----",
"----@-,,,@:o,,,,,,-@----",
"----@-;%@,,o,,,,,,-@----",
"----@@%o@%%.,,,,,,-@----",
"----@&-----X,,,,,,-@----",
"----@-,,,,,o,,,,,,-@----",
"----@-,,,,,o,,,,,,-@----",
"----@-,,,,,o,,,,,,-@----",
"----$XXXXXXXXXXXXXX$----",
"------------------------",
"------------------------"
};