Mercurial > hg > xemacs-beta
view etc/toolbar/file-xx.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 * file[] = { "28 28 4 1", "X c Gray75 s backgroundToolBarColor", "o c Gray60", "O c white", "+ c Gray60", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXooooooooooXXXXXXXXXXX", "XXXXXXXoOOOOOOOOooXXXXXXXXXX", "XXXXXXXoOOOOOOOOo+oXXXXXXXXX", "XXXXXXXoOOOOOOOOo++oXXXXXXXX", "XXXXXXXoOOOOOOOOoooooXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXoOOOOOOOOOOOOoXXXXXXX", "XXXXXXXooooooooooooooXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"};