annotate etc/custom/right.xpm @ 5243:808131ba4a57

Print symbols with ratio-like names and the associated ratios distinctly. src/ChangeLog addition: 2010-08-15 Aidan Kehoe <kehoea@parhasard.net> * print.c (print_symbol): Escape any symbols that look like ratios, in the same way we do symbols that look like floats or integers. Prevents confusion in the Lisp reader. * lread.c (isratio_string): Make this available even on builds without HAVE_RATIO, so we can print symbols that look like ratios with the appropriate escapes. * lisp.h: Make isratio_string available even if HAVE_RATIO is not defined. tests/ChangeLog addition: 2010-08-15 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Test that symbols with names that look like ratios are printed distinctly from the equivalent ratios.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 15 Aug 2010 13:29:10 +0100
parents 43dd3413c7c7
children 7910031dd78a
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 */
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
2 static char * right_xpm[] = {
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
3 "10 10 5 1",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
4 " c Gray90",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
5 ". c Gray90",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
6 "X c none",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
7 "o c Gray75",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
8 "O c Gray40",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
9 " .XXXXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
10 " ...XXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
11 " ....XXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
12 " oo....XX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
13 " oooo....",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
14 " ooooOOOO",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
15 " ooOOOOXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
16 " OOOOXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
17 " OOOXXXXXX",
43dd3413c7c7 Import from CVS: tag r20-3b4
cvs
parents:
diff changeset
18 " OXXXXXXXX"};