annotate etc/toolbar/paste-xx.xpm @ 5574:d4f334808463

Support inlining labels, bytecomp.el. lisp/ChangeLog addition: 2011-10-02 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-initial-macro-environment): Add #'declare to this, so it doesn't need to rely on #'cl-compiling file to determine when we're byte-compiling. Update #'labels to support declaring labels inline, as Common Lisp requires. * bytecomp.el (byte-compile-function-form): Don't error if FUNCTION is quoting a non-lambda, non-symbol, just return it. * cl-extra.el (cl-macroexpand-all): If a label name has been quoted, expand to the label placeholder quoted with 'function. This allows the byte compiler to distinguish between uses of the placeholder as data and uses in contexts where it should be inlined. * cl-macs.el: * cl-macs.el (cl-do-proclaim): When proclaming something as inline, if it is bound as a label, don't modify the symbol's plist; instead, treat the first element of its placeholder constant vector as a place to store compile information. * cl-macs.el (declare): Leave processing declarations while compiling to the implementation of #'declare in byte-compile-initial-macro-environment. tests/ChangeLog addition: 2011-10-02 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: * automated/lisp-tests.el (+): Test #'labels and inlining.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 02 Oct 2011 15:32:16 +0100
parents 7910031dd78a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* XPM */
5413
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
2
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
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: 0
diff changeset
4
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
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: 0
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: 0
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: 0
diff changeset
8 option) any later version.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
9
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
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: 0
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: 0
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: 0
diff changeset
13 for more details.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
14
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
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: 0
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: 0
diff changeset
17
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 static char * paste[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 "28 28 5 1",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 "X c Gray75 s backgroundToolBarColor",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 "o c Gray60",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 "O c Gray90",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 "+ c Gray60",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 "@ c white",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 "XXXXXXXXXXXXXooXXXXXXXXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 "XXXXXXXXXXXXoOOoXXXXXXXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 "XXXXXXooooooOooOooooooXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 "XXXXXo++++oOOOOOOo++++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 "XXXXXo+++oooooooooo+++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 "XXXXXo++++++++++++++++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 "XXXXXo++++++++++++++++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 "XXXXXo++++++++++++++++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 "XXXXXo++++++++++++++++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 "XXXXXo++++++++++++++++oXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 "XXXXXo++++++oooooooooooXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 "XXXXXo++++++o@@@@@@@@ooXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 "XXXXXo++++++o@@@@@@@@o+oXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 "XXXXXo++++++o@oooooo@ooooXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 "XXXXXo++++++o@@@@@@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 "XXXXXo++++++o@oooo@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 "XXXXXo++++++o@@@@@@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 "XXXXXo++++++o@@@@@@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 "XXXXXo++++++o@oooooooo@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 "XXXXXoooooooo@@@@@@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 "XXXXXXXXXXXXo@@@@@@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 "XXXXXXXXXXXXo@@@@@@@@@@@oXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 "XXXXXXXXXXXXoooooooooooooXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX",
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"};