view lisp/gnus/next-ur.xpm @ 57258:36eef73e00fa

(Vfringe_bitmaps): New variable. (syms_of_fringe): DEFVAR_LISP it. (valid_fringe_bitmap_p): Rename from valid_fringe_bitmap_id_p. Change arg to Lisp_Object and fail if not an integer. (get_fringe_bitmap_name, resolve_fringe_bitmap) (destroy_fringe_bitmap): New functions. (Fdestroy_fringe_bitmap): Change arg to bitmap symbol. Use destroy_fringe_bitmap. Remove symbol from Vfringe_bitmaps and clear its fringe property. (init_fringe_bitmap): Use destroy_fringe_bitmap instead of Fdestroy_fringe_bitmap. (Fdefine_fringe_bitmap): Add BITMAP arg specifying new or existing bitmap symbol; remove WHICH arg. Add symbol to Vfringe_bitmaps and set fringe property. Signal error if no free slots. (Fset_fringe_bitmap_face): Change arg to bitmap symbol. (Ffringe_bitmaps_at_pos): Return bitmap symbols instead of numbers.

/* XPM */
static char * next_ur_xpm[] = {
"24 24 8 1",
".	c None",
" 	c #000000000000",
"X	c #A5A5A5A59595",
"o	c #C7C7C6C6C6C6",
"O	c #FFFF00000000",
"+	c #9A9A6C6C4E4E",
"@	c #E1E1E0E0E0E0",
"#	c #FFFFFFFFFFFF",
" .. .. .. .. .. .. .. ..",
"........................",
"............X...........",
" .. .. .. .XXX. .. .. ..",
".........XXooOX.........",
".......XXooo+O@X........",
" .. XXXoooo++@@@X. .. ..",
"....X@Xoooooo@@@X.......",
"....X@@Xooo@@@@@@X......",
" .. X@@XXoo@@@@@@@X.. ..",
"....X@@Xoo@@@@@@@@@X....",
"....X@Xo@@@XX@@@@@@oX...",
" .. oXoo@XXooO@@@@@@X ..",
"....oXoXXooo+OX@@@@Xo...",
"....XXXoooo++@@X@@Xo....",
" .. X@Xoooooo@@@XX .. ..",
"....X@@Xooo@@@@@@X......",
"....X@@XXoo@@@@@@@X.....",
" .. X@@Xoo@@@@@@@@@X. ..",
"....X@Xo@  @@@@@@@  X...",
"... oXoo ## @@ @@ ## ...",
" .. oXo ####  @  #### ..",
".....oX #### @@@ #### ..",
".....oX@ ## @@@@X ## ..."};