Mercurial > emacs
view lisp/gnus/post.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.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 28 Sep 2004 23:02:53 +0000 |
| parents | 55fd4f77387a |
| children |
line wrap: on
line source
/* XPM */ static char * post_xpm[] = { "24 24 8 1", ". c None", " c #434343434343", "X c #A5A5A5A59595", "O c #000000000000", "+ c #C7C7C6C6C6C6", "@ c #FFFF00000000", "# c #9A9A6C6C4E4E", "$ c #E1E1E0E0E0E0", "O..O..O..O..O..O..O..O..", "........................", "............X...........", "O..O..O..O.XXX.O..O..O..", ".........XX++@X.........", ".......XX+++#@$X........", "O..OXXX++++##$$$X.O..O..", "....X$X++++++$$$X.......", "....X$$X+++$$$$$$X......", "O..OX$$XX++$$$$$$$X..O..", "....X$$X++$$$$$$$$$X....", "....X$X+$$$$$$$$$$$+X...", "O..O+X++$$$$$$$$$$$$XO..", "....+X+$$$$$$$$$$$$X+...", ".....+X$$$$$$$$$$$X+....", "O..O.+X$$$$$$$$$XXO..O..", "......+X$$$$$$$X++......", "......+X$$$$$XX+........", "O..O..O+X$$$X++O..O..O..", ".......+X$$X++..........", "........+XX+............", "O..O..O..O+.O..O..O..O..", "........................", "........................"};