annotate etc/toolbar/spell-up.xbm @ 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
5413
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
1 /* 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
2
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
3 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
4 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
5 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
6 option) any later version.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
7
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
8 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
9 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
10 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
11 for more details.
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
12
7910031dd78a Add explicit GPLv3 or later to xpm and xbm graphics.
Mats Lidell <matsl@xemacs.org>
parents: 0
diff changeset
13 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
14 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
15
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 #define noname_width 28
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 #define noname_height 28
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 static char noname_bits[] = {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 0x00,0xc0,0xff,0x7f,0x00,0xa0,0x00,0x40,0x00,0xe0,0xff,0x5f,0x00,0x50,0x02,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 0x51,0x00,0x60,0x02,0x52,0x00,0x60,0x02,0x54,0x00,0x50,0xfa,0x5b,0x00,0x60,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 0x0a,0x52,0x00,0x60,0xfa,0x53,0x00,0x50,0x02,0x10,0x00,0x60,0xfa,0x03,0x00,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 0x60,0x02,0x00,0x00,0x40,0x02,0x40,0x00,0x40,0x02,0x50,0x00,0x40,0x02,0x50,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 0x00,0x00,0x02,0x58,0x00,0x00,0x02,0x54,0x00,0x00,0x00,0x72,0x00,0x10,0x00,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 0x11,0x00,0x20,0xf0,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 0x00,0x00,0x00,0x00,0x00,0x00,0x00};