annotate etc/custom/right.xpm @ 4997:8800b5350a13
Move #'some, #'every to C, implementing them with mapcarX.
src/ChangeLog addition:
2010-02-03 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (mapcarX):
Accept a new argument, indicating whether the function is being
called from #'some or #'every. Implement it.
Discard any multiple values where that is appropriate.
(Fmapconcat, FmapcarX, Fmapvector, Fmapcan, Fmapc, Fmap)
(Fmap_into):
Pass the new flag to mapcarX.
(Fsome, Fevery): Move these functions here from cl-extra.el;
implement them in terms of mapcarX.
(maplist): Discard multiple values where appropriate.
lisp/ChangeLog addition:
2010-02-03 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (some, every):
Move these functions to C.
* cl-macs.el (notany, notevery): Add compiler macros for these
functions, no longer proclaim them inline (which would involve
specbinding that's not necessary with the compiler macros).
author |
Aidan Kehoe <kehoea@parhasard.net> |
date |
Wed, 03 Feb 2010 20:26:47 +0000 |
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"};
|