annotate etc/custom/right.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 |
43dd3413c7c7 |
| children |
7910031dd78a |
| rev |
line source |
|
155
|
1 /* XPM */
|
|
|
2 static char * right_xpm[] = {
|
|
|
3 "10 10 5 1",
|
|
|
4 " c Gray90",
|
|
|
5 ". c Gray90",
|
|
|
6 "X c none",
|
|
|
7 "o c Gray75",
|
|
|
8 "O c Gray40",
|
|
|
9 " .XXXXXXXX",
|
|
|
10 " ...XXXXXX",
|
|
|
11 " ....XXXX",
|
|
|
12 " oo....XX",
|
|
|
13 " oooo....",
|
|
|
14 " ooooOOOO",
|
|
|
15 " ooOOOOXX",
|
|
|
16 " OOOOXXXX",
|
|
|
17 " OOOXXXXXX",
|
|
|
18 " OXXXXXXXX"};
|
