Mercurial > hg > xemacs-beta
view etc/toolbar/mail-up.xpm @ 5273:799742b751c8
Accept circular lists where that is useful in #'mapcar*, #'map* and friends.
src/ChangeLog addition:
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Flist_length): New, moved here from cl-extra.el, needed
by the next function.
(shortest_length_among_sequences): New.
(Fmapconcat, FmapcarX, Fmapvector, Fmapcan, Fmapc, Fmap)
(Fmap_into, Fsome, Fevery):
Use shortest_length_among_sequences() when working out how many
iterations to do, only giving circular list errors if all
arguments are circular.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 16 Sep 2010 20:34:49 +0100 |
| parents | 376386a54a3c |
| children | 7910031dd78a |
line wrap: on
line source
/* XPM */ static char * mail[] = { "28 28 5 1", "X c Gray75 s backgroundToolBarColor", "o c black", "O c Gray90", "+ c Gray60", "@ c white", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXoooooooooooXXXXXXXXXX", "XXXXXXXoOOOOOOOOOooXXXXXXXXX", "XXXXXXXoOOOOOOOOOo+oXXXXXXXX", "XXXXXXXoOOOOOOOOOooooXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXooooooooooooooooooooooooXX", "XXo@@@@@@@@@@@@@@@@@@@@@@oXX", "XXo@oo@@@@@@@@@@@@@@@ooo@oXX", "XXo@@@@@@@@@@@@@@@@@@o+o@oXX", "XXo@@@@@@@@@@@@@@@@@@o+o@oXX", "XXo@@@@@ooooooooo@@@@ooo@oXX", "XXo@@@@@@@@@@@@@@@@@@@@@@oXX", "XXo@@@@@ooooooo@@@@@@@@@@oXX", "XXo@@@@@@@@@@@@@@@@@@@@@@oXX", "XXo@@@@@ooooo@@@@@@@@@@@@oXX", "XXo@@@@@@@@@@@@@@@@@@@@@@oXX", "XXo@@@@@@@@@@@@@@@@@@@@@@oXX", "XXo@@@@@@@@@@@@@@@@@@@@@@oXX", "XXooooooooooooooooooooooooXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXooooooooooooooXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"};