annotate etc/custom/option.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 |
5a88923fcbfe |
children |
7910031dd78a |
rev |
line source |
165
|
1 /* XPM */
|
|
2 static char *option[] = {
|
|
3 /* width height num_colors chars_per_pixel */
|
|
4 " 17 17 4 1",
|
|
5 /* colors */
|
|
6 ". c #000000",
|
|
7 "a c #a8b038",
|
|
8 "b c #f8f800",
|
|
9 "c s None c None",
|
|
10 /* pixels */
|
|
11 "ccccccccccccccccc",
|
|
12 "ccccccccccccccccc",
|
|
13 "cccccbbbbbbcccccc",
|
|
14 "ccccbbbbbbbbccccc",
|
|
15 "cccbbbaaaabbbcccc",
|
|
16 "ccbbbaaaaaabbbccc",
|
|
17 "cbbbaabbbaabbbbcc",
|
|
18 "cbbbaababaabbbbcc",
|
|
19 "cbbbbbbbaabbbbbcc",
|
|
20 "cbbbbbbaabbbbbbcc",
|
|
21 "cbbbbbbaabbbbbbcc",
|
|
22 "cbbbbbbbbbbbbbbcc",
|
|
23 "ccbbbbbaabbbbbccc",
|
|
24 "cccbbbbaabbbbcccc",
|
|
25 "ccccbbbbbbbbccccc",
|
|
26 "cccccbbbbbbcccccc",
|
|
27 "ccccccccccccccccc"
|
|
28 };
|