annotate etc/custom/right-pushed.xpm @ 5553:62edcc6a11ec

Add an assertion about argument order to #'apply-partially compiler macro lisp/ChangeLog addition: 2011-08-24 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el (apply-partially): Add an assertion to this compiler macro, requiring that the order of the placeholders corresponding to the arguments in the constants vector of the constructed compiled function be the same as the order of the arguments to #'apply-partially. tests/ChangeLog addition: 2011-08-24 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Add a test of apply partially that depends on the relative order of its arguments.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 24 Aug 2011 11:06:41 +0100
parents 7910031dd78a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
155
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
1 /* XPM */
5413
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
2
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
3 /* This file is part of XEmacs.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
4
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
5 XEmacs is free software: you can redistribute it and/or modify it
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
6 under the terms of the GNU General Public License as published by the
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
7 Free Software Foundation, either version 3 of the License, or (at your
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
8 option) any later version.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
9
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
10 XEmacs is distributed in the hope that it will be useful, but WITHOUT
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
13 for more details.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
14
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
15 You should have received a copy of the GNU General Public License
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
16 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 155
diff changeset
17
155
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
18 static char * right_xpm[] = {
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
19 "10 10 5 1",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
20 " c Gray40",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
21 ". c Gray40",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
22 "X c none",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
23 "o c Gray75",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
24 "O c Gray90",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
25 " .XXXXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
26 " ...XXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
27 " ....XXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
28 " oo....XX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
29 " oooo....",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
30 " ooooOOOO",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
31 " ooOOOOXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
32 " OOOOXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
33 " OOOXXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
34 " OXXXXXXXX"};