Mercurial > hg > xemacs-beta
annotate etc/toolbar/cut-xx.xpm @ 5400:aa78b0b0b289
Add various Common Lisp character functions, making porting CL code easier.
2011-04-17 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el:
* cl-extra.el ('char<): New.
* cl-extra.el ('char>=): New.
* cl-extra.el ('char>): New.
* cl-extra.el ('char<=): New.
* cl-extra.el (alpha-char-p): New.
* cl-extra.el (graphic-char-p): New.
* cl-extra.el (standard-char-p): New.
* cl-extra.el (char-name): New.
* cl-extra.el (name-char): New.
* cl-extra.el (upper-case-p): New.
* cl-extra.el (lower-case-p): New.
* cl-extra.el (both-case-p): New.
* cl-extra.el (char-upcase): New.
* cl-extra.el (char-downcase): New.
* cl-extra.el (integer-length): New.
Add various functions dealing (mainly) with characters, making
some Common Lisp code easier to port.
* descr-text.el (describe-char-unicode-data):
Add an autoload for this function, used by #'char-name.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 17 Apr 2011 11:14:38 +0100 |
parents | 376386a54a3c |
children | 7910031dd78a |
rev | line source |
---|---|
0 | 1 /* XPM */ |
2 static char * cut[] = { | |
3 "28 28 4 1", | |
4 "X c Gray75 s backgroundToolBarColor", | |
5 "o c Gray60", | |
6 "O c Gray90", | |
7 "+ c white", | |
8 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
9 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
10 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
11 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
12 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
13 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
14 "XXXXXoooooXXXXXXXXXXXXXXXXXX", | |
15 "XXXXooXXXooXXXXXXXXXXXXXXXXX", | |
16 "XXXooXXXXXooXXXXXXXXXXoooXXX", | |
17 "XXXoXXXXXXXoXXXXXXXXooOOooXX", | |
18 "XXXooXXXXXoooXXXXXooOOooXXXX", | |
19 "XXXXooXXXoooooXXXoooooXXXXXX", | |
20 "XXXXXoooooXXXooooooXXXXXXXXX", | |
21 "XXXXXXXXXXXXXXo+oXXXXXXXXXXX", | |
22 "XXXXXoooooXXXooooooXXXXXXXXX", | |
23 "XXXXooXXXoooooXXXoooooXXXXXX", | |
24 "XXXooXXXXXoooXXXXXooOOooXXXX", | |
25 "XXXoXXXXXXXoXXXXXXXXooOOooXX", | |
26 "XXXooXXXXXooXXXXXXXXXXoooXXX", | |
27 "XXXXooXXXooXXXXXXXXXXXXXXXXX", | |
28 "XXXXXoooooXXXXXXXXXXXXXXXXXX", | |
29 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
30 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
31 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
32 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
33 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
34 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX", | |
35 "XXXXXXXXXXXXXXXXXXXXXXXXXXXX"}; |