Mercurial > emacs
view lisp/gnus/exit-gnus.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 * exit_gnus_xpm[] = { "24 24 6 1", " c None", ". c #8686ADAD7D7D", "X c #919187876969", "o c #C2C2B9B99C9C", "O c #A8A8F0F0ECEC", "+ c #EFEFEFEFEFEF", " ", " .... . ", " .. .. . ", " ............. ", " . . . .... ", " ............. ", " .............. .. ", " . . .......... . ", " .XXXX... .. ", " o.XXX. . .. ", " oo.X. .. ... ", " ooX. . ... ", " oXo. .. ", " ooX . . ", " ooX ", "OOOOoXXOOOOOOOOOOOOOOOOO", "OOOoXoXOOOOOOOOOOOOOOOOO", "OOOooXXOOOO+OOOOOOOOOOOO", "O+OoooXOO+OOO+OO+OOO+OOO", "OXXoXoXoXOO++O++OO++OO+O", "XXXXXXXXXXXX+OOOOOOOOOOO", "XXXXXXXXXXXXXX+O++OO++OO", "XXXXXXXXXXXXXXXXOOOOOOOO", "O++O++++O+OO++OOOO++OOO+"};